Hi.
I'm attempting to code a worksheet change which allows for an autoshape to disappear based on cell results from a different sheet.
I thought I had it but id doesn't re-run the macro when the cell is changed and therefore, the shape stays gone until an entry is made on the sheet,
Here is what I'm trying to incorporate together.
Thansk for the help.
Private Sub Worksheet_Calculate() 'Must disable events otherwise will run again 'when A2 is saved to T2 Application.EnableEvents = False If Range("U2") <> Range("V2") Then 'Value has changed Range("V2") = Range("U2") 'Resave new A2 value End If Application.EnableEvents = True Sub Worksheet_Change(ByVal Target As Range) If Range("$V$2") > 0 Then ActiveSheet.Shapes("Strikeout").Visible = True Else ActiveSheet.Shapes("Strikeout").Visible = False End If End Sub
Bookmarks