Go to ActiveSheet.Range

[excellence]

I can't seem to get this VBA to go to E15 !
Otherwise, it is fine.

Private Sub Worksheet_Calculate()
If Range("E24").Value > "1" Then
MsgBox "CLEAR"
ActiveSheet.Range("E15").Select
End If
End Sub

Thanks

 

[Peter_SSs]

No need to apologise, the forum is here to ask questions.