Sub deletesheets()
For j = Sheets.Count to 1 step -1
  If Sheets(j).Name <> "Master" or Sheets(j).Name <> "Revenue" Then Sheets(j).Delete
Next
End Sub
Master and Revenue are the sheets you want preserve