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

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

.

Hi,

you could try the following:

Worksheets("mahlaka").range("05").select

or

i= worksheets("mahlaka").range(i).offset(0,1).address

Steven

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

.

Thanks, still doesn't work, something prevents changing
the active cell.
Paul


-----Original Message-----
Hi,

you could try the following:

Worksheets("mahlaka").range("05").select

or

i= worksheets("mahlaka").range(i).offset(0,1).address

Steven

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

.

.

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

.

.

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

.