Test if Cell is within Range (name)
I have a dynamic range (meaning the size will change) that is defined with a name. How can I easily test if an active cell is within that range? Thanks, 'expl: 'Range B2:Z15 (name "TESTRANGE") 'ActiveCell D4 'Test if D4 is within "TESTRANGE" ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ ~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements |
Test if Cell is within Range (name)
If Application.Intersect(Range("TESTRANGE"),Range("D4 ")) is Nothing then
msgbox "Does not intersect" Else msgbox "Intersects" End If Bob Umlas Excel MVP "goepf" wrote in message ... I have a dynamic range (meaning the size will change) that is defined with a name. How can I easily test if an active cell is within that range? Thanks, 'expl: 'Range B2:Z15 (name "TESTRANGE") 'ActiveCell D4 'Test if D4 is within "TESTRANGE" ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ ~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements |
Test if Cell is within Range (name)
Dim Isect As Range
Set Isect = Application.Intersect(Range1, Range2) If isect is nothing then Do this Else Do that End if Lars Kofod -----Original Message----- I have a dynamic range (meaning the size will change) that is defined with a name. How can I easily test if an active cell is within that range? Thanks, 'expl: 'Range B2:Z15 (name "TESTRANGE") 'ActiveCell D4 'Test if D4 is within "TESTRANGE" ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ ~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements . |
All times are GMT +1. The time now is 10:38 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com