The code below work perfectly if I am in the same worksheet and make the change to the IF statement from cell A1 to change A26 from "whole" or "", but when I put an equal sign in A1 to reference another sheet's cell, then it does not work. Any ideas how to fix this. I have another formula in a different worksheet that changes A1, which then changes A26. Below is my code - thanks in advance</SPAN>
Private Sub Worksheet_Change(ByVal Target As Range)</SPAN>
If Range("A21").Value = "Whole" Then</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 8").Visible = False</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 14").Visible = False</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 16").Visible = False</SPAN>
Else</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 8").Visible = True</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 14").Visible = True</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 16").Visible = True</SPAN>
End If</SPAN>
End Sub</SPAN>
Private Sub Worksheet_Change(ByVal Target As Range)</SPAN>
If Range("A21").Value = "Whole" Then</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 8").Visible = False</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 14").Visible = False</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 16").Visible = False</SPAN>
Else</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 8").Visible = True</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 14").Visible = True</SPAN>
ActiveSheet.Shapes("Rounded Rectangle 16").Visible = True</SPAN>
End If</SPAN>
End Sub</SPAN>