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