I have a similar problem and thought I might just post it here and not adding another thread. I also get that error ot the code:

Option ExplicitPrivate Sub CommandButton4_Click()




Dim Obj As Range




Set Obj = Worksheets("Tests Results").ListObjects("Test_results").Find(SampleID.Value)  'Error appears here


 
With Obj
    .ListColumns("Test Lab") = Me.ComboBox_LAB.Value
    .ListColumns("Flammability Type ") = Me.ComboBoxFlamm.Value
    .ListColumns("Avg-Smoke Density Pass Value (Ds)") = Me.ComboBoxSDpass.Value
end With
End Sub
Here I have a userform and the user enters a SampleID and some data (See With). The code should search for the SampleID in and edit the tablerow. Any help is appreciated.