Runtime Error 91 Object variable or with block variable not set

[Pookiemeister]

On my userform, I have six option buttons and three textboxes. When I run this code I get the following runtime error '91.

Option Explicit


Dim sPath As String, sFile As String
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range


Private Sub cmdbtnOpen_Click()
    sPath = "C:\Production_Line\"
        
    Select Case True
    
        Case Is = optSlits
            sFile = sPath & "SDPF - LINE 1 .xlsx"
        Case Is = optMann
            sFile = sPath & "SDPF - LINE 2A.xlsx"
        Case Is = optCorb
            sFile = sPath & "SDPF - LINE 3.xlsx"
        Case Is = optIA
            sFile = sPath & "SDPF - LINE 4.xlsx"
        Case Is = optMann5
            sFile = sPath & "SDPF - LINE 5A.xlsx"
        Case Is = optPouch
            sFile = sPath & "SDPF - LINE 6.xlsx"
    End Select
    
    Select Case True
        Case Is = optSlits
            Worksheets("SDPF - LINE 1").Activate
        Case Is = optMann
            Worksheets("SDPF - LINE 2A").Activate
        Case Is = optCorb
            Worksheets("SDPF - LINE 3").Activate
        Case Is = optIA
            Worksheets("SDPF - LINE 4").Activate
        Case Is = optMann5
            Worksheets("SDPF - LINE 5A").Activate
        Case Is = optPouch
            Worksheets("SDPF - LINE 6").Activate
    End Select


    
    Set wb = Workbooks.Open(sFile)
    Unload Me
    
    Set rng = ws.Range("G:G").Find(Me.TextBox3.Value)

End Sub

The following line of code is highlighted in yellow:

Set rng = ws.Range("G:G").Find(Me.TextBox3.Value)

The error states that the object variable is not set, but it is. Why am I getting this error?

Thank You

 

[Eric W]

Where do you define ws?

 

[Pookiemeister]

Option Explicit

Dim sPath As String, sFile As String
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range

Private Sub cmdbtnOpen_Click()

ws as Worksheet is shown above.
Thank you for the quick replay.

 

[Eric W]

The Dim statement only reserves space for the variable. You need to initialize it somewhere, like you initialize the wb variable. Something like:

Set wb = Workbooks.Open(sFile)
    Unload Me

Set ws = wb.Worksheets("Sheet1")
    
    Set rng = ws.Range("G:G").Find(Me.TextBox3.Value)

Or

Set ws = Activesheet

 

[Pookiemeister]

I just tried

Set rng = ActiveSheet.Range("G:G").Find(Me.TextBox4.Value)

and it worked. Thank You

 

[Eric W]

You're welcome.