ou used range instead of target for your select but I would write it like this
Or even simpler by
‘dim AType As Range
‘set AType = Range("S8:AL8")
If Not Intersect(Target,range(“s8:al8”) is nothing then
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim SAType As Range
Set SAType = Ran
Why not simply use conditional format?
Sam Mathai Chacko
On Thu, Mar 29, 2012 at 8:22 PM, Tiffany wrote:
> Hi -
>
> I'm a little new to VBA but have managed to put together a macro that half
> achieves its intended purpose.
>
> Depending on what is chosen in a data validation cell (any cell in
