find function eroors

[phillypdh]

i have a function and i keep getting method range of object global
failed error.

Function Find_Range(Find_Item As Variant, _
Search_Range As Range, _
Optional LookIn As Variant, _
Optional LookAt As Variant, _
Optional MatchCase As Boolean) As Range
 
Dim c As Range
If IsMissing(LookIn) Then LookIn = xlValues 'xlFormulas
If IsMissing(LookAt) Then LookAt = xlPart 'xlWhole
If IsMissing(MatchCase) Then MatchCase = False
 
With Search_Range
Set c = .Find( _
What:=Find_Item, _
LookIn:=LookIn, _
LookAt:=LookAt, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=MatchCase, _
SearchFormat:=False)
If Not c Is Nothing Then
Set Find_Range = c
firstaddress = c.Address
Do
Set Find_Range = Union(Find_Range, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
 
End Function

can anyone assist?

 

[phillypdh]

Find_Range("Only", Columns("H"), xlFormulas, xlWhole).EntireRow.Copy Range("Sheet3!A1")

this is where the error occurs.

 

[Jonmo1]

Find_Range("Only", Columns("H"), xlFormulas, xlWhole).EntireRow.Copy Range("Sheet3!A1")

Probably needs to be

Find_Range("Only", Columns("H"), xlFormulas, xlWhole).EntireRow.Copy Sheets("Sheet3").Range("A1")

 

[phillypdh]

now i get subscript out of range error.

 

[Jonmo1]

That would indicate Sheet3 doesn't exist...
Check the spelling, and for extra spaces in the actual sheet's tab name...

 

[phillypdh]

thanks alot you are the MAN! oh wait-

object variable or with block variable not set.

 

[phillypdh]

 Find_Range("Only", Columns("H"), xlFormulas, xlWhole).EntireRow.Copy Sheets("FHA'S W IMAGE").Range("A1")

    Find_Range("Chase", Columns("H"), xlFormulas, xlWhole).EntireRow.Copy Sheets("FHA C_SIGN W IMAGE").Range("A1")

this gives the obj variable error.