VBA - Error 438

[galileogali]

This is my code (a piece)

Option Explicit
Sub CargarVariables()
Dim xlp As Object
Dim VAR As Variable
Dim wbk As Object
Dim wks As Object
Dim ActCell As Object
Dim ruta As String
Dim resp As Integer

Const xldown = -4121
Static regist As Variant

ruta = ThisDocument.Path & "\"
On Error Resume Next
Set xlp = GetObject(, "Excel.Application")
Err.Clear
On Error GoTo 0
If xlp Is Nothing Then
    Set xlp = CreateObject("Excel.Application")
End If
On Error Resume Next
Set wbk = xlp.Workbooks("Carga .xls")
Err.Clear
On Error GoTo 0
If wbk Is Nothing Then
xlp.Workbooks.Open ruta & "Carga .xls"
Set wbk = xlp.ActiveWorkbook
End If

Set wks = wbk.Sheets("Hoja1")
Set ActCell = wks.Range("A2")
ActCell.Activate
ActCell.End (xldown)

Excel from Word.
Without Reference to Excel Enabled

Why do I get an error 438 in this line?

ActCell.End (xldown)

xldown is defined in declarations

 

[GTO]

I believe that since you are not returning a reference, Excel is expecting an action, .Select.

Also, if Hoja1 is not the active sheet when the wb was last saved and closed, the line before will foul. Try:

xlp.GoTo ActCell
ActCell.End(xldown).Select

 

[galileogali]

Thank you, very much

Comment "top secret":
It is incredible what small thing one can lock and not realize (jejejeje)

Thanks, again

 

[GTO]

You are most welcome