Macro to run under change/select condition in the same sheet
Posted by Nona Sloven on May 22, 2001 3:13 PM
Can anybody help me out with this?
I have the following macro:
Private Sub Worksheet_Change(ByVal Target As Range)
'Written by OzGrid Business Applications
Dim WatchRange As Range
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$B$8" And _
Target = "Valores Incorrectos >>" Then Exit Sub
On Error Resume Next
Set WatchRange = Range("C6:I17")
If Not Intersect(Target, WatchRange) Is Nothing Then
Set WatchRange = Nothing
This macro doesn't work if I select an item in cell C17 or in cell F17 which are dropdown lists for a pivot table. I have my pivot table in the same sheet. The macro was at first intended to work when a cell is changed in range C6:I17, but I need it to also work when an item in cells C17 or F17 is selected. Is this possible? Thank you.