msgbox help wanted

[lior03]

hello all
i want to present several optios to a user .i want to have each option in a row.

Dim sheetpo As VbMsgBoxResult
sheetpo = MsgBox("this sheet is to be: & vbCrLf &1.duplicated after last sheet (press yes)& vbCrLf & 2.it may be deleted (press no) " _
, vbInformation + vbYesNoCancel, "sheet copy/delete")
Select Case sheetpo
Case vbYes
ActiveSheet.Copy Before:=Sheets(Sheets.Count)
Case vbNo
ActiveSheet.Delete
Application.DisplayAlerts = False
Case vbCancel
Exit Sub
End Select


thanks

[rory]

Try this:
Dim sheetpo As VbMsgBoxResult
sheetpo = MsgBox("this sheet is to be: " & vbCrLf & _
"1.duplicated after last sheet (press yes)" & vbCrLf & _
"2.it may be deleted (press no) " _
, vbInformation + vbYesNoCancel, "sheet copy/delete")
Select Case sheetpo
Case vbYes
ActiveSheet.Copy Before:=Sheets(Sheets.Count)
Case vbNo
ActiveSheet.Delete
Application.DisplayAlerts = False
Case vbCancel
Exit Sub
End Select

[Bob Phillips]

sheetpo = MsgBox("this sheet is to be:" & vbNewLine & _
"1.duplicated after last sheet (press yes)" & vbNewLine & _
"2.it may be deleted (press no) ", _
vbInformation + vbYesNoCancel, "sheet copy/delete")


apprently vbNewLine works with Macs so is more generic

[Cyberdude]

For what it's worth, I've gotten in the habit of using a standard title in all macros that use Msgbox:
Constant Title As String = "'Workbkname' (macroname)'"
'. . .
Msgbox "My msg text", vbOKCancel, Title This can be quite useful when wondering where a particular message was issued.

[RonMcK3]

For what it's worth, I've gotten in the habit of using a standard title in all macros that use Msgbox:
Constant Title As String = "'Workbkname' (macroname)'"
'. . .
Msgbox "My msg text", vbOKCancel, Title This can be quite useful when wondering where a particular message was issued.

Brilliant!

Wonderful suggestion.

Ron
Orlando, FL

[asingh]

For what it's worth, I've gotten in the habit of using a standard title in all macros that use Msgbox:
[vba]Constant Title As String = "'Workbkname' (macroname)'"
'. . .
.

Is there anyway..that the Workbook name and Macroname..be assigned dynamically..stored in two variables..and the Title be 'built'....??

Instead of each time..hardcoding it in...?


regards,

asingh

[Bob Phillips]

Workbook name is simple

myWb = Activeworkbook.Name

Macroname is not easy, ther is no object exposed.