Run-time Error 438: object doesnt support this property or method

[Bench]

Can anyone help, i keep getting a "Run-time Error 438: object doesnt support this property or method" when i run the Find code below, i've bolded the section is highlights in the code.

Sub Find_First()
    
    Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("Enter a Search value")
    If Trim(FindString) <> "" Then
        With Sheets("LookupTables").Range("E:E")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If
    ActiveCell.Offset(0, -4).Select
    Range("A1").Value = ActiveCell.Value
     
    With Sheets("LookupTables")
        .UserForm1.Enabled = True
    TextBox1.Text = .Range("LookupTables!A2").Value
    TextBox2.Text = .Range("LookupTables!A3").Value
    TextBox3.Text = .Range("LookupTables!A4").Value
    TextBox4.Text = .Range("LookupTables!A5").Value
    End With
End Sub

Any ideas?

Thanks

 

[Norie]

Is it definitely on the Find line of code?

 

[Tom Urtis]

i've bolded the section is highlights in the code.

What you bolded is this line:
.UserForm1.Enabled = True

which starts with a dot and it should not because even though it is in the With structure of
With Sheets("LookupTables")
a userform is not a method or property of a sheet.

Take away that preceding dot and only have
UserForm1.Enabled = True
(sans preceding dot) which will eliminate that error.

This does not mean you won't have other errors, but for sure you won't have that one.

 

[Bench]

What you bolded is this line:
.UserForm1.Enabled = True

which starts with a dot and it should not because even though it is in the With structure of
With Sheets("LookupTables")
a userform is not a method or property of a sheet.

Take away that preceding dot and only have
UserForm1.Enabled = True
(sans preceding dot) which will eliminate that error.

This does not mean you won't have other errors, but for sure you won't have that one.

Great, had a play and looks like i needed to be more specific, changed to:

With Sheets("LookupTables")
    UserForm1.TextBox1.Text = Sheets("LookupTables").Range("LookupTables!A2").Value

Seems to have done the trick

Thanks