Hello all,

Is it possible to test if the active cell is within a certain range?

I have a short list of categories, A36:A47, that I have given the range the name "CategoriesList". In the
"Worksheet_SelectionChange" event, I want to test to see if the new active cell is within the CategoriesList range and if it is, set
another cell on the worksheet to the same value as the active cell.

If it is possible, please provide sample code.

--
Thanks for any help anyone can provide,

Conan Kelly

Try this...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A36:A47")) Is Nothing Then
MsgBox Target.Address
End If
End Sub

--
HTH...

Jim Thomlinson


"Conan Kelly" wrote:

Hello all,

Is it possible to test if the active cell is within a certain range?

I have a short list of categories, A36:A47, that I have given the range the name "CategoriesList". In the
"Worksheet_SelectionChange" event, I want to test to see if the new active cell is within the CategoriesList range and if it is, set
another cell on the worksheet to the same value as the active cell.

If it is possible, please provide sample code.

--
Thanks for any help anyone can provide,

Conan Kelly

If Not Intersect(Target,Range("CategoriesList")) Is Nothing Then
'do your thing

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Conan Kelly" <CTBarbarin at msn dot com wrote in message
...
Hello all,

Is it possible to test if the active cell is within a certain range?

I have a short list of categories, A36:A47, that I have given the range
the name "CategoriesList". In the
"Worksheet_SelectionChange" event, I want to test to see if the new active
cell is within the CategoriesList range and if it is, set
another cell on the worksheet to the same value as the active cell.

If it is possible, please provide sample code.

--
Thanks for any help anyone can provide,

Conan Kelly

Jim,

Thank you for your feedback. You and Bob Phillips had the same response. It worked beautifully.

Thanks again for all of your help,

Conan



"Jim Thomlinson" wrote in message
...
Try this...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A36:A47")) Is Nothing Then
MsgBox Target.Address
End If
End Sub

--
HTH...

Jim Thomlinson


"Conan Kelly" wrote:

Hello all,

Is it possible to test if the active cell is within a certain range?

I have a short list of categories, A36:A47, that I have given the range the name "CategoriesList". In the
"Worksheet_SelectionChange" event, I want to test to see if the new active cell is within the CategoriesList range and if it is,
set
another cell on the worksheet to the same value as the active cell.

If it is possible, please provide sample code.

--
Thanks for any help anyone can provide,

Conan Kelly

Bob,

Thank you for your feedback. You and Jim Thomlinson had the same response. It worked beautifully.

Thanks again for all of your help,

Conan


"Bob Phillips" wrote in message ...

If Not Intersect(Target,Range("CategoriesList")) Is Nothing Then
'do your thing

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Conan Kelly" <CTBarbarin at msn dot com wrote in message
...
Hello all,

Is it possible to test if the active cell is within a certain range?

I have a short list of categories, A36:A47, that I have given the range
the name "CategoriesList". In the
"Worksheet_SelectionChange" event, I want to test to see if the new active
cell is within the CategoriesList range and if it is, set
another cell on the worksheet to the same value as the active cell.

If it is possible, please provide sample code.

--
Thanks for any help anyone can provide,

Conan Kelly