Sub Create_New_Tab()
'
' Create_New_Tab Macro
' Macro recorded 27/01/2004 by Fat Shit'
'
Sheets.Add
Sheets("Sheet4").Select
Sheets("Sheet4").Name = "Shits&Giggles"
End Sub
"Sheet4" is the added sheet name , u can write something to count the number of sheets currently there and then u will know what the name of the new sheet is if u need to change it. Sheets.Count will give the integer number to you.