Hi Martin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Sheet1")
If Not Intersect(Target, .Range("E6:E1006 ")) Is Nothing Then
LayoutType.Show
End If
End With
End Sub

--
XL2002
Regards

William



"Martin" wrote in message
...
| I would like to run a macro upon the selection of a cell within a given
range.
| The following code works, but runs the macro upon selection of the entire
| column...
|
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
| If Target.Column = 5 Then LayoutType.Show
| End Sub
|
| So I wondering if something along the lines of...
|
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
| If Target.Range = E6:E1006 Then LayoutType.Show
| End Sub
|
| ... however this doesn't work
|
| Any help with this would be appreciated