Find Date error message

[FIRSTROUNDKO via OfficeKB.com]

HI!,

I am trying to find a date from an activecell but i get the error message


"object variale or with block variable not set"

From the bellow Sub

Sub MENB()

Dim LASTROW As Long
Dim abcd As range

Sheets("MONTHS TO UPDATE").Select
LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
For nb = LASTROW To 1 Step -1
Cells(nb, 1).Select
If Cells(nb, 2).Value Like "*X" Then
GoTo GETOUT
End If
Next nb
GETOUT:
Set abcd = ActiveCell
Sheets("Copy Paste Special").Select
Range("a1").Select
Cells.Find(What:=abcd, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

End Sub

 

[Mike Fogleman]

My first guess would be that you have Option Explicit at the top of each
module. If a variable is not Dimmed, then you will get that error. Add this
to your code for variable nb:

Sub MENB()

Dim LASTROW As Long
Dim abcd As range

Dim nb As Long

Mike F

 

[paul.robinson]

Hi
If the Find part doesn't find anything then you will get an error. Do
on error resume next
Cells.Find(What:=abcd, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
on error goto 0

This will ignore the error within your loop, do nothing to the cells,
and go onto the next loop value, if that is what you want?
regards
Paul