Range Names

[Helen Trim]

This works, though it might not be the most elegant
solution:

Dim RangeName As String
RangeName = "Revenue"

If ActiveCell.Column = Range(RangeName).Column And
ActiveCell.Row = Range(RangeName).Row Then
MsgBox "is"
Else
MsgBox "isn't"
End If

HTH
Helen

 

[arno]

Hi Helen,

what are you after? Maybe, you'd have a look at "Intersect-Method" in
VBE-Help.

This works, though it might not be the most elegant
solution:

arno

 

[Bob Phillips]

Dim RangeName As String
RangeName = "Revenue"

If Not Intersect(Activecell, Range(RangeName)) Is Nothing Then
MsgBox "is"
Else
MsgBox "isn't"
End If