Sub ZeigeAlleSymbole()

Sub ZeigeAlleSymbole()
' Fügt (fast) alle Symbole in eine Excel-Mappe
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim cbCtl As CommandBarControl
Dim cbBar As CommandBar
On Error Resume Next
Application.ScreenUpdating = False
Set cbBar = CommandBars.Add(Position:=msoBarFloating, _
MenuBar:=False, temporary:=True)
Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, _
temporary:=True)
k = 1
Do While Err.Number = 0
For j = 1 To 6
i = i + 1
Application.StatusBar = "FaceID = " & i
cbCtl.FaceId = i
cbCtl.CopyFace
If Err.Number  0 Then Exit For
ActiveSheet.Paste Cells(k, j)
Cells(k, j).Value = i
Next j
k = k + 1
Loop
Application.StatusBar = False
cbBar.Delete
End Sub

Funktioniert auch einwandfrei!
Insgesamt werden 7103 Schaltflächensymbole aufgeführt.
Davon jedoch jede Menge leere Schaltflächen.
Gibt es eine Möglichkeit die leeren Schaltflächen auszuschließen?
Wenn ja, wie?
Gruß Sonnenpeter