Why does code cause "lockup"?

[JMay]

Below code works, but focus is not returned to screen interface; sys seems
"locked-up")
I must Control-Break to continue.

Sub Worksheet_Change(ByVal Target As Range)
Dim LrowInC As Long
LrowInC = Range("C65536").End(xlUp).Row
Range("D3") = "C" & LrowInC
End Sub

 

[Tom Ogilvy]

Sub Worksheet_Change(ByVal Target As Range)
Dim LrowInC As Long
On Error goto ErrHandler
LrowInC = Range("C65536").End(xlUp).Row
Application.EnableEvents = False
Range("D3") = "C" & LrowInC
ErrHandler:
Application.EnableEvents = True
End Sub

if you change a cell in the change event, you trigger the change event again
and again and again . . .
Unless you take some action to prevent it.

 

[Rob van Gelder]

You are retriggering the same event.

Try:

Sub Worksheet_Change(ByVal Target As Range)
Dim LrowInC As Long
LrowInC = Range("C65536").End(xlUp).Row
Application.EnableEvents = False
Range("D3") = "C" & LrowInC
Application.EnableEvents = True
End Sub

 

[JMay]

Thanks Tom - I was suspicious that this was my problem..
JMay

 

[JMay]

Thanks Rob - I now understand!!
JMay

You are retriggering the same event.

Try:

Sub Worksheet_Change(ByVal Target As Range)
Dim LrowInC As Long
LrowInC = Range("C65536").End(xlUp).Row
Application.EnableEvents = False
Range("D3") = "C" & LrowInC
Application.EnableEvents = True
End Sub