Macro - Delete Sheets in Workbook and Rename Sheet per Cell Reference

[cvici]

Hello Everyone,

I am trying to create a macro that will Delete all sheets attached and only keep one sheet (Detailed Invoice 0).


Then I would like to rename the sheet based upon two cell references (A2-F2)

I have attached an example and also a final showing what I would like with a macro.

[BadlySpelledBuoy]

Try this:

Option Explicit

Sub BSB()
    Dim ws As Worksheet
    
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Sheets
        With ws
            If .Name <> "Detailed Invoice 0" Then
                .Delete
            Else
                .Name = .Range("A2") & "-" & .Range("F2")
            End If
        End With
    Next
    Application.DisplayAlerts = True
End Sub

BSB

[mohadin]

Or maybe

Sub test()
    Application.DisplayAlerts = False
    Sheets(Array("Invoice Cover Page", "Valuations", "Transactions", "Surcharges")).Delete
    Application.DisplayAlerts = True
    With ActiveSheet
        .Name = .Range("A2") & "-" & .Range("F2")
    End With
End Sub