hello all
i want to present several optios to a user .i want to have each option in a row.
[VBA]
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
[/VBA]
thanks