Rather than scrolling and bouncing back, this slight modification worked well for me:

Sub ScrollSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
wks.Activate:
Application.Goto Range("A30"), True
Next 'wks

End Sub