Any way that the code below can be made to return me to the worksheet and
cell were the code was triggered?

Sub HolidayRemove()

'Code provided b Mike H

Application.ScreenUpdating = False

On Error GoTo ErrorHandler

For n = 1 To Sheets.Count
If Sheets(n).Name < "Holidays" Then
Sheets(n).Select
Sheets(n).Unprotect
With Sheets(n)
Range("S5").Activate
ActiveSheet.Shapes.SelectAll
Selection.Delete
Range("K1").Value = ""
Sheets(n).Protect
End With
End If
Next n

ErrorHandler:

Application.ScreenUpdating = True

End Sub