On Error Resume Next Sheets("Output").Delete Sheets.Add After:=Sheets(Sheets.Count) Set outputSheet = Sheets(Sheets.Count) outputSheet.Name = "Output" 'name it "output"