Sziasztok!

Segítene valaki hogy mi lehet a hiba ebben a makróban?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets("Munka1").Range("r5") = Now()
End Sub

Működik de mindig hibár ír ki "debug", és vmi hibakódot.