Check if sheet exists and delete it using IF ERROR function in VBA

Sub deletesheets()
For j = 1 To Sheets.Count
  If Sheets(j).Name <> "Master" Then Sheets(j).Delete
Next
End Sub