Executing a Macro by passing a string parameter

[AshwinS2 (Ashwin S)]

hi @PJain
you can use the below code and let us know
Sub SheetKiller()
Dim s As Worksheet, t As String
Dim i As Long, K As Long
K = Sheets.Count

For i = K To 1 Step -1
    t = Sheets(i).Name
    If t = "ID Sheet" Or t = "Summary" Then
        Application.DisplayAlerts = False
            Sheets(i).Delete
        Application.DisplayAlerts = True
    End If
Next i

End Sub

Thanks
Ashwin S