I am having a great deal of trouble converting a listindex to a range address. I need to copy from a cell to another based on a listbox list index. any help would be greatly appreciated. Range R1 shows the listindex value

Private Sub TextBox2_Change()

Dim sStr As String

Dim place
Dim scell As Range

Dim Index, list
sStr = Trim(TextBox2.Text)
sStr = Application.Substitute(Application. _
Substitute(sStr, ",", ""), "$", "")
If IsNumeric(sStr) Then
TextBox2.Text = Format( _
TextBox2.Text, "(###) ###-####")
End If
place = "B" & ThisWorkbook.Worksheets("personal").Range("R1").Value
scell = ThisWorkbook.Worksheets("personal").Range(place.Value)
ThisWorkbook.Worksheets("personal").Range("Q2").copy scell

End Sub