I'd change this:

If Application.CountA(rng) < 4 Then
to
If Application.CountA(rng) < rng.cells.count then

Then if you increase/decrease the cells in rng, you don't have to worry about
finding all the 4's and adjusting them.

Celtic_Avenger wrote:

Thanks Norman.

I have made a few user specific adjustments:

Private Sub CommandButton1_Click()
Dim rng As Range

Set rng = Range("E6, E8,E10,E12")

If Application.CountA(rng) < 4 Then
MsgBox "Please Complete At Least The Following" & Chr(13) & "Customer
Name." & Chr(13) & "Customer Number." & Chr(13) & "Credit Limit." &
Chr(13) & "Current Balance.", vbInformation, "IMPORTANT!"
Exit Sub

Else
Sheets("Lock2").Select
Application.StatusBar = "Please Enter The Details Requested Then
Press The Next Button"
ActiveWindow.DisplayVerticalScrollBar = False

End If

End Sub

And this now works an absolute treat.

Thanks for all your help with this question and all the others I have
posted that you have been very kind to help me on. Big Help.

Thanks again.

Celtic_Avenger
:) :) :) :) :)

--
Celtic_Avenger
------------------------------------------------------------------------
Celtic_Avenger's Profile: http://www.excelforum.com/member.php...o&userid=14101
View this thread: http://www.excelforum.com/showthread...hreadid=261374

--

Dave Peterson