help with range(cells(x,y),cells(z,y))

[dmac13]

can anyone tell me why this is not working ? if i replace the variables with the varaible values the range is selected but as it stands i get a runtime error 1004

Sub Update_data()

Dim MyCOL As String
Dim MyROW As String


MyCOL= Range("A2").End(xlToRight).Column + 1
MyROW = Range("A65000").End(xlUp).Row
Range(Cells(2, MyCOL), Cells(MyROW, MyCOL)).Select

end sub



THanks

Damo

 

[Jonmo1]

Dim your variables as LONG not String.

 

[VoG]

Perhaps

Sub Update_data()

Dim MyCOL As Long
Dim MyROW As Long


MyCOL = Range("A2").End(xlToRight).Column + 1
MyROW = Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(2, MyCOL), Cells(MyROW, MyCOL)).Select

End Sub

 

[dmac13]

thanks