FillTBs can also be added to the sheet's Calculate event.
If that is all that you wanted then filtering is irrelevant.
[VBA]Sub FillTBs()
Dim i As Integer
For i = 1 To 5
UserForm1.Controls("Textbox" & i).Value = Cells(Selection.Row, i)
Next i
End Sub[/VBA]