On May 28, 2:57 pm, dapco2006 <dapco2...@discussions.microsoft.com>
wrote:

I used the Tools/Macros/Record macro to do the actions you described
and got pretty much the whole thing ...

Public Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/28/2008 by Tom Lavedas
'

'
   ActiveCell.FormulaR1C1 = "Vacation"
   With ActiveCell.Interior
       .ColorIndex = 6 ' yellow
       .Pattern = xlSolid
   End With
End Sub

Then I activated the Control Toolbox (View/Toolbars), selected design
mode and pasted in the button, right clicked on the button and
selected View code and added the word Macro1 to the supplied code
framework for CommandButton1 and modified the macro subroutine by
making it Public ...

Private Sub CommandButton1_Click()
 Macro1
End Sub

Turned off design mode and tested it on cell A1.  Worked the first
time.  Elapsed time 3 minutes.  The Record macro tool is your
friend ;-)

The macro code could also be moved to the CommandButton routine
instead and the macro routine deleted.

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/