Adress in Listbox

[Wijnand1]

HI,

Need help with the following.

I need the address, for instance "$G$17" in the listbox, below code ListBox.List(s, 0) = Cells.Address(sat, "F") is not working.

Private Sub TextBox_Find_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String

If TextBox_Find.Value = "" Then
ListBox.Clear
Exit Sub
End If


With ListBox
.Clear
.ColumnCount = 4
.ColumnWidths = "100;100;120;120;"
End With


deg2 = TextBox_Find.Value

Select Case TextBox2.Value
Case "Article nr."
For sat = 2 To Cells(65536, "g").End(xlUp).row
Set deg1 = Cells(sat, "g")
If UCase(deg1) Like UCase(deg2) & "*" Then
ListBox.AddItem
ListBox.List(s, 0) = Cells.Address(sat, "F")
ListBox.List(s, 1) = Cells(sat, "G")
ListBox.List(s, 2) = Cells(sat, "K")
ListBox.List(s, 3) = Cells(sat, "L")
s = s + 1
End If: Next