chumley
Try the code below. As well as naming the sheet, the "On Error ... " line stops you getting an error message if you run the macro more than once with the same value in A1 or if the value in A1 is an illegal sheet name.
Also, in code, you generally do not need to actually select cells to work with them and selecting slows the code considerably. So I have suggested some changes to the rest of your code as well to speed it up. You won't notice the difference in this short bit of code, but good knowledge for the future.
"Application.ScreenUpdating ..." lines stop some flickering while the code is being run and again speeds the code up.
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> TestMacro()
Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
ActiveSheet.Copy Before:=Sheets(1)
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN>
ActiveSheet.Name = Range("A1").Value
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> 0
Range("S9:S11").Copy
Range("D8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I8:I10").ClearContents
Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>