Compile Error: Expected End Sub

[jzkemler1]

Hi!!
Prefaced with I am a novice!!! But I am trying to get the macro below to work in Excel and I keep getting the Compile Error: Expected End Sub error. Can anyone with a trained set of eyes help me out? Thanks so much!! Zoe

Sub ctrln()
'
' ctrln Macro
'
' Keyboard Shortcut: Ctrl+n
'
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G34")) Is Nothing Then
With Target
If IsNumeric(.Value) And Not IsEmpty(.Value) Then
Range("I34").Value = Range("I34").Value + Range ("G34").Value
End If
End With
End If
End Sub

 

[shg]

You're welcome, good luck.