Without seeing all your code I would guess that the problem may be that
mynewResultsH is not set to be a valid range.

Hope this helps or post more (or preferably all) of your code.
Rowan

cjsmith22 wrote:
thanks Rowan - trying to use


Code:
--------------------
Set c = mynewResultsH.Find(myteams, lookat:=xlWhole)
If Not c Is Nothing Then
With c
myfor = c.Offset(0, 1)
myagainst = c.Offset(0, 5)
mygd = myfor - myagainst
If myfor myagainst Then
mywon = 1
mypoints = 3
myplayed = 1
End If
If myfor < myagainst Then
mylost = 1
myplayed = 1
End If
If myfor = myagainst Then
mydrawn = 1
mypoints = 1
myplayed = 1
End If
firstaddress = c.Address
Do
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstaddress

End With
End If
--------------------

but says object variable or with variable not set - any ideas?