For Each sht In ActiveWorkbook.Worksheets
If sht.Visible And (sht.Name = "NonFormat") Then
sht.Delete
End If
Next sht
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "NonFormat"
Hello All,
The following will delete the NonFormat sheet, and then add a new...