Run Time error 28 - Out of stack space????

[danbates]

Hi,

Please can someone help me?

I have the following code which is triggering Run Time error 28 - Out of stack space.

This is the only code in my workbook as well.

How can I clear this error?

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B2").Value <> "" Then
Range("R2").Value = Format(Date, "mm/dd/yyyy")
End If
End Sub

Thanks

Dan

 

[RoryA]

If you change a cell in a Change event, you'll trigger the event again, hence the problem. You need to temporarily disable events:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B2").Value <> "" Then
application.enableevents = false
Range("R2").Value = Format(Date, "mm/dd/yyyy")
application.enableevents = true
End If
End Sub

 

[danbates]

Thank you for your help.