maximo y minimo

hola, Jaime !

Quiero a traves de una macro que ya tengo hecha que me sume unas celas si estas son distintas a " "
y para la suma utilizo: suma_tmp1 = suma_tmp1 + CDbl(Cells(actual, 6).Value)
Alguien sabe la "formula" del maximo y el minimo ya que no lo encuento.

supongo que por "formula" te refieres al algoritmo que se utilizaria para determinar maximos/minimos -?-
[si lo anterior es correcto]... considera que las funciones de hoja de calculo suma(...) max(...), min(...), [y otras[
-> omiten celdas con texto por lo que no seria necesario ir haciendo 'descalificaciones' de celdas/valores ;)
-> ademas de que pudes 'llamarlas' desde codigos en vba +/- como sigue:
<variable> = Application.WorksheetFunction.Sum(Range("a2:a45")) [o puedes omitir el 'WorksheetFunction']
<variable> = Application.Max(Worksheets("hoja3").Range("a2:a45")) [o puedes usar una instruccion del tipo]...
<variable> = Evaluate("min(hoja3!a2:a45)")

[entre otras posibilidades, alternativas y variantes] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.