Run time error 91 - Object variable or with block variable not set

[danbates]

Hi,

I have this code that error's when I run it.

Dim RngC As Range
Set RngC = Range("C" & Rows.Count).End(xlUp)
[COLOR=rgb(226, 80, 65)]Columns("C").Find("CARTONS", After:=RngC, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Select[/COLOR]
UserForm1.CARTONSSSCC1.Text = RngC.Offset(-1, 2).Value
UserForm1.CARTONSSSCC2.Text = UserForm1.CARTONSSSCC1.Text

The red line is the one that is highlighted when it error's.
I think it is because the sheet it works on is blank at the moment, so is there something I could add in to prevent this error for happening again?

Thanks
Dan

 

[dmt32]

Try this update to your code & see if helps

Dim RngC As Range
    
    Set RngC = Columns("C").Find("CARTONS", SearchOrder:=xlByRows, _
                                            SearchDirection:=xlPrevious, _
                                            MatchCase:=False, _
                                            SearchFormat:=False)
    If Not RngC Is Nothing Then
        UserForm1.CARTONSSSCC1.Text = RngC.Offset(-1, 2).Value
        UserForm1.CARTONSSSCC2.Text = UserForm1.CARTONSSSCC1.Text
    Else
    'not found
    MsgBox "Not Found"
    End If

Dave

 

[Peter_SSs]

The red line is the one that is highlighted when it error's.

FYI, if you want to apply your own formatting to vba code in your post, use the 'RICH' tags, not the VBA tags

 

[danbates]

Hi Dave,
Thank you for your code, it works perfectly.

Hi Peter,
Thank you for letting me know, I'll remember that for next time.

Thanks

Dan