Try this event

Copy it in the sheet module
If you select A1 it print the range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
Range("D10:X41").PrintOut
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"BrianT" wrote in message
...

How would I make a cell into a 'print button' (radio button?)

I need to be able to mouseover and either click or press enter on a
cell, and doing so would cause a range of other cells to be printed. So
cell A1 would be my button, click on it or hit enter once it was
highlighted and it would print cells D10-x41 say.


--
BrianT
------------------------------------------------------------------------
BrianT's Profile: http://www.excelforum.com/member.php...o&userid=35954
View this thread: http://www.excelforum.com/showthread...hreadid=557438