I don't think you have uploaded correctly, however try this
I haven't studied your workbook in detail, but see if that works for you first.![]()
Sub Replace_View_Requested_Sheet() ' ' Replace_View_Requested_Sheet Macro ' Dim strSheetName As String Sheets("View Requested Format").Copy Before:=Sheets(4) strSheetName = ActiveSheet.Name Application.DisplayAlerts = False Sheets("View Requested").Delete Application.DisplayAlerts = True Sheets(strSheetName).Name = "View Requested" Range("A1").Select End Sub
Bookmarks