Using a loop is the best way, but here is a modification of your approach

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
Dim sStr as String

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

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

With ActiveSheet
manufacturesName1 = InputBox("Manufactorsname 1")
If LCase(manufacturesName1) = "quit" Then

Else
[a1].Value = manufacturesName1
sStr = manufacturesName1 & vbNewLine
manufacturesName2 = InputBox("Manufactorsname 2")
If LCase(manufacturesName2) = "quit" Then
Else
sStr = sStr & manufacturesName2 & vbNewLine
[a2].Value = manufacturesName2
manufacturesName3 = InputBox("Manufactorsname 3")
If LCase(manufacturesName3) = "quit" Then
Else
sStr = sStr & manufacturesName3 & vbNewLine
[a3].Value = manufacturesName3
manufacturesName4 = InputBox("Manufactorsname 4")
If LCase(manufacturesName4) = "quit" Then
Else
sStr = sStr & manufacturesName4 & vbNewLine
[A4].Value = manufacturesName4
manufacturesName5 = InputBox("Manufactorsname 5")
If LCase(manufacturesName5) = "quit" Then
Else
sStr = sStr & manufacturesName5 & vbNewLine
[a5].Value = manufacturesName5
End If
End If
End If
End If
End If
If Len(sStr) 0 Then
MsgBox Left(sStr, Len(sStr) - 2)
End If

End With

End Sub

--
Regards,
Tom Ogilvy


"RELWOD85" wrote in
message ...

i have been doing the following coding which allows me to input through
a input box 5 names this works however i would first of all like to
enter the word QUIT before the 5th name is inputed so that i dont have
to input anymore then the second thind i want to do is get a message
box to appear after its has quit to show in numbers how many names have
been put in for example if only two names have been put in before the
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 before
they input a fifth
'manufacturers name the use of "&vbCrlf" in the coding forces a break
in the line of the message

MsgBox "Please can you enter the word QUIT befor putting in 5
manufacturers names" & vbCrLf & "its up to you when you do it aslong as
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 manufactures
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 showing
the manufactures names that have been inputted

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

'then after this i want the message box to display as a interger how
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 Sub


--
RELWOD85
------------------------------------------------------------------------
RELWOD85's Profile:
http://www.excelforum.com/member.php...o&userid=25753
View this thread: http://www.excelforum.com/showthread...hreadid=391833