Macro works but error still shows up.

[Sebastian]

OK' I can find the last used cell in a column but only when I know which column it is (A, B, C etc).
I want to search for a particular word "Late" (I know it only appears once in the sheet) and then find the last cell in that column.
The following seems to work but although the correct cell gets selected I still get an error (Method 'Range' of object'_Global' failed)

Sub MyMacro()
Cells.Find(What:="Late", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("Late").Offset(65532, 0).End(xlUp).Select
End Sub

 

[Ivan F Moala]

On 2002-09-22 21:43, Sebastian wrote:
OK' I can find the last used cell in a column but only when I know which column it is (A, B, C etc).
I want to search for a particular word "Late" (I know it only appears once in the sheet) and then find the last cell in that column.
The following seems to work but although the correct cell gets selected I still get an error (Method 'Range' of object'_Global' failed)

Sub MyMacro()
Cells.Find(What:="Late", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("Late").Offset(65532, 0).End(xlUp).Select
End Sub

This one worked for me....so one way would be

</pre>
Sub MyMacro()
Cells.Find(What:="Late", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Cells(65536, ActiveCell.Column).End(xlUp).Select
End Sub
</pre>

 

[Sebastian]

Thank you Ivan.