Special Cell question

[Sri_VBANoob]

hi all, i am a noob to VBA with a relatively low exposure to programming, i am trying to achieve the below objective but getting error message

Objective: select last non blank row and offset to next cell type a message in it
error message: Runtime error 1004 : method 'Range' of Object '_Global' Failed

CODE:

Sub lastRowAll()
myvar = ActiveSheet.UsedRange.SpecialCells(11).Column
myrow = ActiveSheet.UsedRange.SpecialCells(11).Row
Range(myvar, myrow).Offset(0, 1).Value = "Experiments with VBA"
Range(myvar, myrow).Offset(0, 1).Activate


End Sub

 

[James Snyder]

Where are the definitions for the ActiveSheet, myVar, and myRow?

 

[wigi]

Try Cells instead of Range:

Sub lastRowAll()

    With Cells(1).SpecialCells(11)
        myvar = .Column
        myrow = .Row
    End With
    
    Cells(myrow, myvar).Offset(0, 1).Value = "Experiments with VBA"


End Sub

or simply:

Sub lastRowAll()


    Cells(1).SpecialCells(11).Offset(0, 1).Value = "Experiments with VBA"


End Sub

 

[wigi]

Where are the definitions for the ActiveSheet, myVar, and myRow?

What do you mean? They are in the code... ActiveSheet is fine too.

 

[Sri_VBANoob]

What do you mean? They are in the code... ActiveSheet is fine too.

This works !!!!

Thanks a ton for helping out Wigi, this fixes my broken code(heart) , and James appreciate your help in reaching out

cheers
Sri_VBANoob

 

[wigi]

You're welcome.
Please can you pay attention to the

 tags? Thanks in advance.

 

[James Snyder]

Much thanks for the acknowledgment!