good morning

I am trying to get this macro to run when I click the control button
the Macro runs fine when it is selected via tools/macro/run
but when I copy it to the button code I get a run time error 1004
and the debuger highlights cell.select

can some one give me a helping hand

Sub CommandButton1_Click()

' Macro recorded 8/20/2009 by stuartj

Cells.Select
Selection.COPY
Sheets("Sheet1").Select
Sheets.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.EntireColumn.AutoFit
End Sub