Troubleshooting a worksheet selectionchange macro

[svmac]

I have the following macro in my worksheet module;

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim TestRange As Range
Set TestRange = Range("$H$2:$H$500")
If Not Intersect(Target, TestRange) Is Nothing Then
If Target.Value = "Yes" Then
Target.EntireRow.PrintOut Copies:=2
End If
End If
Set TestRange = Nothing
End Sub

Instead of looking at the target value, as the user will be entering yes then leaving the cell, I wish to have the macro look at the value of the cell it is leaving.

If anyone can help me out, I would greatly appreciate it.

Thnx

 

[Legacy 98055]

Hi.
Short on time here.
Search "PreviousSelections Property Example" in VBA help. You will need to take into account that this property will be empty when the workbook is initially opened.
Tom

 

[svmac]

Thnaks for replying TsTom.

I have had a look at the help file as suggested, but am not sure how to apply this to my code.

In my mind, I think I can see how this should work, but in my worksheet, I cannot apply it.

Any further suggestions appreciated.

Thnx
Stuart