Unable to use .select in worksheet_change event

[Ironman]

Hi

The below code in a worksheet_change event runs fine and I'm just trying to add a line to the end of it that makes Col C of the last filled row in sheet 'Training Log' the active cell, but what I've tried below isn't acceptable and I don't know how to overcome this.

If Range("CurYTD").Value > Range("CurGoal").Value Then
MsgBox ("Congratulations!" & vbNewLine & "You have now run more miles this year than" & vbNewLine & vbNewLine & _
   "- The whole of " & Range("PreYear").Value & vbNewLine & _
   "- " & Range("counter").Value & " of the " & Year(Now) - 1981 & " years you've been running" & vbNewLine & _
   vbNewLine & "New rank for " & Year(Now) & " is " & Range("CurYTD").Offset(1, 0).Value & " out of " & Year(Now) - 1981), _
   vbInformation, "Another Year End Mileage Total Exceeded!     "
  
Range("Counter").Value = Range("Counter").Value + 1
Else
MsgBox (CLng(Range("CurGoal").Value - Range("CurYTD").Value) & _
   " miles to go until rank " & (Range("CurYTD").Offset(1, 0).Value) - 1 & " reached" & vbNewLine & vbNewLine & _
   "(Year end mileage for " & Range("PreYear").Value & ")"), _
vbInformation, "Year To Date Mileage"
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End If


Sheets("Training Log").Range("A23358").End(xlUp).Offset(1, 0).Select  (the column and possibly the row are incorrect but I don't know what they should be)


Application.Calculation = xlCalculationAutomatic
End Sub

Help would be appreciated.

Many thanks!

 

[Fluff]

Try

Application.Goto Sheets("Training Log").Range("A"&rows.count).End(xlUp).Offset(, 2)

 

[Ironman]

Perfect! Thank you once again Fluff

 

[Fluff]

Glad to help & thanks for the feedback.