If target.intersect begins with a bracket "(" then exit sub..

[omairhe]

Hello all,

In the following code if the change in value occurs in range M5:M1000 the code will run. However, this is true with any value change. What if I would like to neglect the code operation from change code if the value in that range (M5:M1000) begin with a "(" bracket. And thus do nothing if this case is true.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("M5:M1000")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

Thanks and will appreciate.

 

[My Aswer Is This]

After some playing around with your code I was able to solve this like.

If Not Intersect(Target, Range("M5:M1000")) Is Nothing Then
If Left(Target.Offset(0, 1).PivotItem.Value, 1) <> "(" Then

I guess they say it right. 'Little goes a long way.' Hehe
But yh sorry to not have posted the information about the pivot table in my original post.

Ty

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.