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) & "Custome
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 The
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 hav
posted that you have been very kind to help me on. Big Help.

Thanks again.

Celtic_Avenger
:) :) :) :) :

--
Celtic_Avenge
-----------------------------------------------------------------------
Celtic_Avenger's Profile: http://www.excelforum.com/member.php...fo&userid=1410
View this thread: http://www.excelforum.com/showthread.php?threadid=26137