You mean something like this ?

Private Sub ListBox1_Change()
Dim i As Long
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
'Do nothing
Exit Sub
End If
Next
End With
MsgBox "Missing some selection"
ListManifest.SetFocus

End Sub

NickHK


"apndas" ¼¶¼g©ó¶l¥ó·s»D:apndas.2bk3jg_1153923607.6654@excel forum-nospam.com...

Thanks for your reply Nick - that sub works however in disabling the
command button it does not allow me to then select a manifest # and
continue processing my invoice, I just want it to alert me that nothing
has been selected and setfocus on the manifest list and be then able to
select something - that sounds a bit circular - I hope I'm making some
sense.

regards
Darren


--
apndas
------------------------------------------------------------------------
apndas's Profile:
http://www.excelforum.com/member.php...o&userid=36137
View this thread: http://www.excelforum.com/showthread...hreadid=564556