You could use the Workbook_SheetSelectionChange event if you want this to
happen on all worksheets. If it is a specific sheet then use the
worksheet_SelectionChange event behind the sheet concerned...

Code like that below will work (Using selection on A1 on any worksheet)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Sh.PrintOut
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"Ltat42a" wrote in
message ...

Can you put a link in a cell, that when you click on it, it will print
the current worksheet? How?

Thanx.


--
Ltat42a
------------------------------------------------------------------------
Ltat42a's Profile:
http://www.excelforum.com/member.php...o&userid=24735
View this thread: http://www.excelforum.com/showthread...hreadid=478471