Listenfeld und Listbox.........

Sub MeldungListBox2()
Application.ScreenUpdating = False
Bereich = ("B:C")
With Worksheets("55")
.Columns(Bereich).Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlGuess
End With
Application.ScreenUpdating = True
Gesamt = ""
Zeilen = Application.WorksheetFunction.CountIf(Sheets _
("55").Columns(2), Gesamt) - 1
'Hier hängt sich das Makro auf, wie geschrieben funzt es bei einem Listenfeld super 
With ActiveSheet
Set LF2 = ActiveSheet.Shapes("ListBox2")
LF2.ControlFormat.ListFillRange = "'55'!$B$2:$B$" & Zeilen + 1
LF2.ControlFormat.MultiSelect = xlNone
End With
End Sub

Was ist zu tun? geht das überhaupt in einem Tabellenblatt?
Gruß Sonnenpeter