Sub RemoveSpecificSheet() Dim DeleteWS As String DeleteWS = InputBox("Which Sheet do you want to delete?") Sheets(DeleteWS).Delete End Sub