Range Class falure
Thank YOU !!!!!!!!!!!!!!!
-----Original Message-----
try something like this:
Sub abc()
Dim add As String
Dim mahlaka As String
mahlaka = "sheet1"
add = "o5"
MsgBox _
Worksheets(mahlaka).Range(add).Offset(0, 1).Address
End Sub
Patrick Molloy
Microsoft Excel MVP
-----Original Message-----
Hi,
Why it does't work and returns "range class falure"
i = "o5"
Worksheets(mahlaka).Activate
Range(i).Select
ActiveCell.Offset(0, 1).Select
i = ActiveCell.Address
Please help me
.
.
|