Hi
I think you're getting the range class failure because you
haven't specified what sheet Range(i) is on and you
haven't put the name of the worksheet in quotes.

Try

Dim i
i = "o5"
Worksheets("mahlaka").Activate
ActiveSheet.Range(i).Select
ActiveCell.Offset(0, 1).Select
i = ActiveCell.Address

Also you could lose a line of code and use the following

dim i
i = "o5"
Worksheets("mahlaka").Activate
ActiveSheet.Range(i).Offset(0, 1).Select
i = ActiveCell.Address

Hope this helps
Libby

-----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

.