Correction to previous reply:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WatchRange As Range
Set WatchRange = Range("A1")
If Union(Target, WatchRange).AddressLocal = WatchRange.Address Then
If Range("A1").Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
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