Problems with Ranges

[Guest]

Hello, do any of you know why this is not working?

Range("A1").End(xlDown + 1) = "FINAL"

I have data in sheet 3. and I want to put in " FINAL" at the end of column
A, where there is no data.
Do I need to specify the sheet?
How?

 

[Guest]

You may need to specify the sheet it depends which is the active sheet but in
the first instance you need to get the syntax correct, try:-


ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Value = "FINAL"

Mike

 

[Gord Dibben]

Range("A1").End(xlDown).Offset(1, 0).Value = "FINAL"

Note: this works only if there are no blanks in column A

Best to work up from the bottom of the column.

Sub findbottom()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).value = "FINAL"
End Sub


Gord Dibben MS Excel MVP