Last word on the sheet

[DDH]

I am trying to modify this code to take me to the last word or row on a
sheet, the code below will only do it in row B.
Thank you for your help.



Sub LastCellInColumnxx()
Range("b65536").End(xlUp).Select
ActiveCell.Offset(2, 0).Select
End Sub

 

[MARK858]

This?

Sub LastCell()
ActiveCell.SpecialCells(xlLastCell).Select
End Sub

 

[DDH]

MARK858 - Thank you for the code.

I tried it and it works perfect, but I have a question.
It put a word in column C, Row 75 and put the curser
on Row A, Cell 1 and clicked the macro and it took me to
Column V, Row 75 instead of Column C.
I put a word in Column E, Row 100 and it done the same thing,
it went to Column V .
The last column I have anything in before Column E, Row 100 is
Column P, Row 70.
Thank you for your help.

 

[DDH]

I found it.

Sub Demo()
Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select
End Sub


Thank you for your help.

 

[MARK858]

Glad you found an answer.Just to answer your question about the SpecialCells(xlLastCell) not going to the right cell, it only resets after a save(or save/close/reopen the file).
This applies also to things like the UsedRange. The other option is to reset it with code. See the thread attached for more info on this. Hope that explains it.
http://www.mrexcel.com/forum/showthread.php?t=73426