Deshabilitar commandbutton con listbox

Cuando inicias el form, puedes poner esto para deshabilitar el CommandButton1

Private Sub UserForm_activate()
If ListBox1.ListCount = 0 Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub

Después, cuando actualices el listbox, por ejemplo, si lo haces con otro commandbutton, tendrías que poner esto:

Private Sub CommandButton2_Click()
ListBox1.AddItem "Dato1"
If ListBox1.ListCount = 0 Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub

Saludos. Dam
Si es lo que necesitas.