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

.