Macro in excel/ced

[Cedric]

I have a macro in Microsoft Excel listed below. I need for it to repeat
until xxx is entered. Any help will be appreciated.



Sub OptionExplicit()
'
' OptionExplicit Macro
' Macro recorded 3/10/2008 by Student Financial Aid
'
Dim vName As String
Dim vAddress As String
Dim vCityStateZip As String
Dim vPhoneNumber As String
Dim vEmailAddress As String
Dim vRealEstateAgentAndCompany As String
Dim vxxx As String

vName = InputBox("Please type in your name?")
If vName = "xxx" Then
Exit Sub
Else
vAddress = InputBox("Please enter your address?")
vCityStateZip = InputBox("Please enter City, State and Zip?")
vPhoneNumber = InputBox("Please enter your Phone Number?")
vEmailAddress = InputBox("Please enter your Email Address?")
vRealEstateAgentAndCompany = InputBox("Please enter your Real Estate Agent
and Company?")
Worksheets("Sheet1").Range("B1") = vName
Worksheets("Sheet1").Range("B2") = vAddress
Worksheets("Sheet1").Range("B3") = vCityStateZip
Worksheets("Sheet1").Range("B4") = vPhoneNumber
Worksheets("Sheet1").Range("B5") = vEmailAddress
Worksheets("Sheet1").Range("B6") = vRealEstateAgentAndCompany

'
Range("B1").Select
Range("B2").Select
Range("B3").Select
Range("B4").Select
Range("B5").Select
Range("B6").Select


vName = InputBox("Please type in your name?")
vAddress = InputBox("Please enter your address?")
vCityStateZip = InputBox("Please enter City, State and Zip?")
vPhoneNumber = InputBox("Please enter your Phone Number?")
vEmailAddress = InputBox("Please enter your Email Address?")
vRealEstateAgentAndCompany = InputBox("Please enter your Real Estate Agent
and Company?")
Worksheets("Sheet1").Range("B11") = vName
Worksheets("Sheet1").Range("B12") = vAddress
Worksheets("Sheet1").Range("B13") = vCityStateZip
Worksheets("Sheet1").Range("B14") = vPhoneNumber
Worksheets("Sheet1").Range("B15") = vEmailAddress
Worksheets("Sheet1").Range("B16") = vRealEstateAgentAndCompany

'
Range("B11").Select
Range("B12").Select
Range("B13").Select
Range("B14").Select
Range("B15").Select
Range("B16").Select



End If
Application.Goto Reference:="OptionExplicit"
End Sub

 

[Gary''s Student]

Right before the InputBox statement, put:
DO

and at the end of the code you want repeated, put:
LOOP

 

[FSt1]

hi
what are you trying to do with this code. if you put this code in a loop,
you will be over writing the same locations over and over again + get caught
in an endless loop.

regards
FSt1

 

[Cedric]

I am trying to have excel prompt me to enter a name, address,etc. I want it
to repeat the same questions until I enter xxx. I know I have to change the
location each time I enter a different name. I just cannot get it to exit
after I enter xxx.

Thanks