Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to get out of loop ????
I wrote the following code to get a new name . Everything works except my
confirmation check. I have tried several attempts and have not met with sucess. In all cases, I end up completing the sub when I click the No button to BMbResponse. What am I missing? Is there a better way? Thanks for your help and Merry Christmas. Ray Do Until NAreaName < "" NAreaName = InputBox("Please enter the New Area name. ", "Area Name Input") If Len(NAreaName) 18 Then ' check if name exceeds length limit MsgBox " Proposed name is too long, try again. " NAreaName = "" GoTo loop1: End If For Each cell In Range("AreaNames") ' check if name is in use If NAreaName = Trim(cell.Value) Then MsgBox "New name is already in use, try again." NAreaName = "" GoTo loop1: End If Next cell ' confirmation check before proceeding bMbResponse = MsgBox("You have entered : " & NAreaName & " " & vbCrLf & _ " Do you want to continue?", vbYesNo) If bMbResponse = vbNo Then End ' decide you did not want to proceed loop1: Loop End If Unload UserForm2 ' write new name to worksheet Worksheets("Area").Cells(7, RrC + 1).Value = NAreaName End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find loop doesn't loop | Excel Discussion (Misc queries) | |||
DO LOOP in VBA | Excel Discussion (Misc queries) | |||
Loop | Excel Discussion (Misc queries) | |||
HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming | |||
For Each Loop | Excel Programming |