List Box connect to a cell

[Marilyn]

Hello I'm a novice at this ... I created a userform - then I added the
button to the spreadsheet and it works. But how Do I add/connect the answer I
select to cell B7 of the spreadsheet . Example if someone selects Type A I
want type A to show in cell B7 , if Type B is selected then Type B will be in
cell B7 . so on and so on Thanks!
Sub ShowDialog()
With UserForm1.ListBox1
.MultiSelect = fmMultiSelectSingle
.RowSource = ""
.AddItem "Type A"
.AddItem "Type B"
.AddItem "Type C"
.AddItem "Type D"
.AddItem "Type E"
.AddItem "Type F"
.AddItem "Type G"

End With
UserForm1.Show
End Sub

 

[FSt1]

Hi
add a button to the form.

Private Sub CommandButton1_Click()
Range("B7").Value = ListBox1.Value
End Sub

select a value, click the button.

Regards
FSt1