Change the selection of column data

PLEASE HELP ME TO CHANGE THE COLUMN SELECTION OF MY SEARCH BUTTON TO COLUMN (G:G) OF MY RAW FILE.


Private Sub cmdBtnSearch_Click()
Dim i As Long
Dim sFind As String

sFind = Me.TextBox11.Text

If Len(sFind) = 0 Then
Me.ListBox1.ListIndex = -1
Me.ListBox1.TopIndex = 0
Else
For i = 0 To Me.ListBox1.ListCount - 1
If InStr(UCase(ListBox1.List(i)), UCase(sFind)) > 0 Then
Me.ListBox1.TopIndex = i
Me.ListBox1.ListIndex = i
Exit For
End If
Next i
End If
End Sub

Thanks Mr.arlu for welcoming.

Please help me to my code to change the column selection of data.