Solved: Working With Named Ranges

[LarryLaser]

How do I change this piece of code to function with named ranges?
[vba]Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'needs to target Range Name "Pics"
If Target.Column = 7 Then ViewPicture Target
[/vba]

[Bob Phillips]

[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'needs to target Range Name "Pics"
If Not Intersect(Target, Range("Pics")) Is Nothing Then
ViewPicture Target.Value
End If[/vba]

[LarryLaser]

Awsome,
Thanks xld

btw, I like your new avatar.

[Bob Phillips]

btw, I like your new avatar.

Coutesy of Simon Lloyd.