[table="width: 500"]
[tr]
[td]Sub MessageBoxAlternative()
Const SheetID As String = "_Buttonz"
Dim btnDlg As DialogSheet
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.DialogSheets(SheetID).Delete
Application.DisplayAlerts = True
Err.Clear
Set btnDlg = ActiveWorkbook.DialogSheets.Add
With btnDlg
.Name = SheetID
.Visible = xlSheetHidden
With .DialogFrame
.Height = 100
.Width = 280
.Caption = "Please confirm..."
End With
With .Buttons("Button 2")
.BringToFront
.Height = 20
.Width = 60
.Caption = "Yes, please"
End With
With .Buttons("Button 3")
.BringToFront
.Height = 30
.Width = 60
.Caption = "No, thanks"
End With
.Labels.Add 100, 50, 100, 100
.Labels(1).Caption = "Are you sure you want to move to the next sheet?"
Application.ScreenUpdating = True
If .Show = True Then
MsgBox "Your ''Yes, please'' code goes here", 64, "Yes was clicked"
Else
MsgBox "Your ''No, thanks'' code goes here", 64, "No was clicked"
End If
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub[/td]
[/tr]
[/table]