Message Box Question

[DDH]

Is it possible to have three options on the message box?
A option to go back to the top of the sheet (A1)
after you say Yes or No or the search name is not found.
Thank you for your help.

If MsgBox("Continue?", vbYesNo) <> vbNo Then
GoTo Flag1




Sub Search()
Dim vResult1, vResult2
Dim rFound As Range
Dim Lookfor As String

Lookfor = InputBox("Enter Name", "Search")
If Lookfor = "" Then
End
End If

On Error Resume Next
With Sheet1.Range("a:a") 'Sheet1 is the CodeName
Set rFound = .Find _
(What:=Lookfor, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole)
End With

Flag1:
If Not Cells.Find(What:=Lookfor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False) Is Nothing Then

Cells.Find(What:=Lookfor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

If MsgBox("Continue?", vbYesNo) <> vbNo Then
GoTo Flag1
End If

Else
MsgBox ("The Name Was Not Found")

End If
End Sub

 

[CWatts]

There's vbYesNoCancel if that works for you (also vbAbortRetryIgnore).

If you want custom labels on your buttons you'll need to go the user form route.

 

[AlphaFrog]

MyMsg$ = "Continue?" & vbLf & vbLf & "Yes = Find next" & vbLf & "No = Stop search" & vbLf & "Cancel = Return to A1"

Select Case MsgBox(MyMsg, vbYesNoCancel)
Case vbYes: GoTo Flag1
Case vbNo:
Case vbCancel: Range("A1").Select
End Select

 

[DDH]

CWatts & AlphaFrog - Thank you for your help.
I tried this and I must have messed something up
because I could not make it work.

 

[CWatts]

Go the user form route. That way you can set up your own buttons. I hadn't messed with them at all and i was able to easily whip one together and they work great. Just set it up with three buttons, double click on a button to assign the code you want to run in the user form, and just put something like UserFormName.Close at the end so the window closes if you want.

I just made two boxes and this is the code:

Private Sub btnNO_Click()
[a1].Value = "No"
ufYesNo.Hide
End Sub

Private Sub btnYES_Click()
[a1].Value = "Yes"
ufYesNo.Hide
End Sub

 

[DDH]

CWatts - Thank you very much, it works perfect.