i have been doing the following coding which allows me to input throug
a input box 5 names this works however i would first of all like t
enter the word QUIT before the 5th name is inputed so that i dont hav
to input anymore then the second thind i want to do is get a messag
box to appear after its has quit to show in numbers how many names hav
been put in for example if only two names have been put in before th
word quit is entered i then would like a message box to appear with "2
in it. if anyone can help i would be so greatful. below is my coding


Private Sub pressHereToInputManufacturesNames_Click()

Dim manufacturersName1$
Dim manufacturersName2$
Dim manufacturersName3$
Dim manufacturersName4$
Dim manufacturersName5$
Dim i As Integer
Dim rRange As Excel.Range
Dim strtext$
Set rRange = Range("a1", Range("a1").End(xlUp))
Dim iTheRows As Long

'the below message box instructs the user to enter the word QUIT befor
they input a fifth
'manufacturers name the use of "&vbCrlf" in the coding forces a brea
in the line of the message

MsgBox "Please can you enter the word QUIT befor putting in
manufacturers names" & vbCrLf & "its up to you when you do it aslong a
it is before the 5th name Thankyou"

With ActiveSheet
manufacturesName1 = InputBox("Manufactorsname 1")
.[a1].Value = manufacturesName1
manufacturesName2 = InputBox("Manufactorsname 2")
.[a2].Value = manufacturesName2
manufacturesName3 = InputBox("Manufactorsname 3")
.[a3].Value = manufacturesName3
manufacturesName4 = InputBox("Manufactorsname 4")
.[A4].Value = manufacturesName4
manufacturesName5 = InputBox("Manufactorsname 5")
.[a5].Value = manufacturesName5

End With

' this below section of coding selects the cells which the manufacture
names have been inputted into

iTheRows = rRange.Rows.Count
[a1,a2,a3,a4,a5].Select

' the below section of coding makes another message box come up showin
the manufactures names that have been inputted

'in here i want to i think put coding in to make it stop when the wor
quit is put into the input box

'then after this i want the message box to display as a interger ho
many names in total have been inputed into the cell range a1:a5


For i = 1 To iTheRows Step 1
strtext$ = strtext$ & ActiveCell.Value & vbCrLf
Next i
MsgBox strtext$


End Su

--
RELWOD8
-----------------------------------------------------------------------
RELWOD85's Profile: http://www.excelforum.com/member.php...fo&userid=2575
View this thread: http://www.excelforum.com/showthread.php?threadid=39183