If Not ActiveSheet.Range("A1").Value Like "apple" Then MsgBox "Error"

Greetings,
Following code is okey.

Sub Macro1()
If Not ActiveSheet.Range("A1").Value Like "apple" Then MsgBox "Error"
End Sub

I need a code like following.
Red line needs corrected.

Sub Macro2()
If Not ActiveSheet.Range("A1").Value Like "apple" Then open debug box on vbe editor showing this line
End Sub

Regards