RD has also shown you a way to do it without extra code, but if like me you
would find the grouping and ungrouping an unnecessary chore, then here is a
bit of code that you can assign to the button

Sub SetCellColour()
Application.Dialogs(xlDialogPatterns).Show
Worksheets("Sheet2").Range(ActiveCell.Address) _
.Interior.ColorIndex = ActiveCell.Interior.ColorIndex
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"hobpedlar" wrote
in message ...

Thanks bob,
That sounds like it could do the trick.
I will try it out and let you know.
Cheers
Hobpedlar


--
hobpedlar
------------------------------------------------------------------------
hobpedlar's Profile:
http://www.excelforum.com/member.php...o&userid=25516
View this thread: http://www.excelforum.com/showthread...hreadid=389569