Error 91 in code - Object variable or with block not set

[Galego]

Code below

Sub AddNEW()
'
' AddNEW Macro
'

    Application.ScreenUpdating = False
    Dim LastRow As Long
    Dim wsData As Worksheet
    Dim wsMacro As Worksheet
    Set wsData = Workbooks("Over 50k Report.xlsm").Sheets("NEW Invoices")
    Set wsMacro = Workbooks("Over 50k Report.xlsm").Sheets("Over 50k")
    LastRow = wsData.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    wsData.Range("J1:J" & LastRow).AutoFilter Field:=1, Criteria1:="NEW"
    wsData.Range("D2:D" & LastRow).SpecialCells(xlCellTypeVisible).Copy wsMacro.Cells(wsMacro.Rows.Count, "A").End(xlUp).Offset(1, 0)
    If wsData.AutoFilterMode = True Then wsData.AutoFilterMode = False
    Application.ScreenUpdating = True


'
End Sub

 

[Galego]

can anyone please help me fix the error?

Not sure what I am missing.

Thanks,
David

 

[dmt32]

can anyone please help me fix the error?

Not sure what I am missing.

Thanks,
David

Hi,
this line

LastRow = wsData.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

will give that error if there is no data on your NEW Invoices worksheet.

Dave

 

[Galego]

Odd enough now works.

Not sure if there was an extra space there in the name.

Cheers.