Error when Dynamic Names Range has zero values

[sharky12345]

I'm using this to populate a number of Comboboxes on a Userform;

For i = 1 To 24
Set ws = Worksheets("ResourcesNew")
If Me.Controls("ComboStaff" & i).Value <> "" Then
Else
Me.Controls("ComboStaff" & i).List = ws.Range("NewAvailableStaff").Value
End If
Next i

The idea is that as each item is selected from any of the Comboboxes it is removed from the Named Range by another macro, (so that the remaining Comboboxes are only loaded with available staff). The problem I now have is when the last item is selected from that Named Range, this is producing an error as each of the other Comboboxes can't be loaded because there is nothing left.

Can anyone show me how to incorporate a method that won't produce an error if there is nothing in the Named Range?

 

[Dryver14]

Please do not get upset at my suggestion...you sometimes do!

If Me.Controls("ComboStaff" & i).Value <> "" Then


If Me.Controls("ComboStaff" & i).Value="" then Me.Controls("ComboStaff" & i).Value= "No Available staff"</pre>