This is my first time trying to write a Macro, but it doesn't seem to work!

I want a "button" on sheet 1 (which is currently just cell D2). On clicking
this button the entire workbook will be printed, except for sheet 1.

So far I have created this code:

Sub Print_All()
'
' Print_All Macro
' Macro recorded 03/01/2007 by Jenny
'

'
Range("D2").Select
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub

On selecting run macro, this seems to work (although prints sheet 1 also
which I don't want). Nothing happens however when D2 is selected - how do I
make this look like a "button"?