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

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

Dim RangeName As String
RangeName = "Revenue"

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



--

HTH

RP

"Helen Trim" wrote in message
...

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