Dim LastRow As Object
ShtName = ComboBox66.Text

Set LastRow = Sheets(ShtName).Range("A400").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text


the above is what I now have...
but now I get "Runtime error '9' " - Script out of Range, and the
yellow bar of hate comes up on the Set LastRow line... The little
debugger boxes that come up when you hover are telling me that all
the stuff you've given so far is kicking along and working really
well... what's up now?