Enter this code in the sheet object (not a regular module)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WatchRange As Range
Set WatchRange = Range("A1")
If Range("A1").Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

"climax" wrote:


Hi,

I need a screenshot of my desktop triggered by exel.

something like:

if Range("a1").Value = 1 then PRINTSCREEN

Can it be done?

Thanks


--
climax
------------------------------------------------------------------------
climax's Profile: http://www.excelforum.com/member.php...o&userid=30816
View this thread: http://www.excelforum.com/showthread...hreadid=516576