Hi ecalid. Not much luck with this one. This seems to work. HTH. Dave
Userform1 code...
Private Sub ListBox1_Click()
Dim tbl As ListObject
Set tbl = Sheets("Briefing").ListObjects("Table6")
'column D
UserForm1.TextBox4.Text = _
Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(3).Range).Value
'column G
UserForm1.TextBox1.Text = _
Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(5).Range).Value
'column E
UserForm1.TextBox3.Text = _
Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(4).Range).Value
'column I
UserForm1.TextBox2.Text = _
Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(8).Range).Value
'column J
UserForm1.TextBox5.Text = _
Intersect(tbl.ListRows(UserForm1.ListBox1.ListIndex + 1).Range, tbl.ListColumns(9).Range).Value
End Sub