Runtime Error 91

[paulsolar]

Hi All

I need a bit of assistance please, I'm getting a Runtime Error 91 "Object variable or with block variable not set" form the code below. Could you take a look and see what I'm missing please.

Kind regards

Paul

Sub get_promotions()

With Sheets("Import Sheet")
Set findrow = .Range("A:A").Find(What:="Section 9 Claims History", LookIn:=xlValues)
End With
Dim findRowNumber As Long
findRowNumber = findrow.Row

Dim lastrow9 As Long
lastrow9 = Sheets("Import Sheet").Cells(Sheets("Import Sheet").Rows.Count, "A").End(xlUp).Row

Sheets("Import Sheet").Range("A" & findRowNumber + 1 & ":I" & lastrow9 + 1).Copy Destination:=Sheets("Promotion Claims History").Range("A1")

End Sub

 

[bebo021999]

May be it found nothing from the find method.
try to add

.....
Dim findRowNumber As Long
If findRow is Nothing then Exit sub
findRowNumber = findrow.Row
.....

 

[paulsolar]

Hi, you are an absolute star,

Who ever typed in the data in originally added a space before the name and it wasn't finding it. I didnt notice this