![]() Sub SortWorksheets Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult iAnswer = MsgBox('Sort Sheets in Ascending Order?' & Chr(10) & 'Clicking No will sort in Descending Order'vbYesNoCancel + vbQuestion + vbDefaultButton1, 'Sort Worksheets') For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If iAnswer = vbYes Then If UCase$(Sheets(j).Name) UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ElseIf iAnswer = vbNo Then If UCase$(Sheets(j).Name). ![]() Please try again.', 'Error' Exit Sub End If Selection.PrintOutFrom:=startpage, To:=endpage, Copies:=1, Collate:=True End Sub. ![]() , 'Enter Value') If Not WorksheetFunction.IsNumber(endpage) Then MsgBox'Invalid End Page number.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |