error en macro ajusta rango

[MarianoCruz]

Hola buenas tardes:

Tengo la siguiente estructura de macro:

Sub AjustarRangoD()
Dim rngC As Range
For Each rngC In [Anexos!d14:d20]
AjustarTextoEnCeldasCombinadas rngC.MergeArea (macro para ajustar tamaño a los rangos indicados)
Next rngC
End Sub

funciona bien, pero cada que abro mi libro, este me marca un error 424 se requiere un objeto. y marca en amarillo la 2da linea de mi macro. y detiene la ejecución de la macro.

Esta macro la llamo dentro de una estructura Worksheet_Calculate()

Public Sub Worksheet_Calculate()
  Static ValorPrevio
  Application.EnableEvents = False ' Prevenimos un posible bucle debido a cambios en la hoja '
  If Hoja2.Range("f13") <> ValorPrevio Then ' Verificamos si el valor  ha cambiado respecto al valor anterior '
   ' Application.Run ("AjustarRangoD")   ''Lanzamos macro '
       ValorPrevio = Hoja2.Range("f13") ' Cargamos de nuevo la variable de control de cambio '
  End If ' Empieza el otro macro '
 
  Rows("15").Hidden = Range("d15") = 0
  Rows("23").Hidden = Range("d15") <> 0
Rows("24").Hidden = Range("v21") = "Aj"

  Application.EnableEvents = True ' Restablecemos los eventos '
     
End Sub

Muchas gracias

Mariano

 

 

[JSDJSD]

Sube tu archivo