Leftmost worksheet in view

This ensures that the leftmost worksheet is always in view.
Simply ‘call’ it from a procedure as required.
If you have a ‘Control’ sheet containing end user procedures this will ensure that ‘Control’ is always visible.
Author: michael@excelexperts.co.uk

Sub LeftmostWorksheetInView()

	Dim i As Integer
    Dim x As Integer

    i = ThisWorkbook.Worksheets.Count

    On Error Resume Next
    For x = 1 To i
        ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Next x
    On Error GoTo 0

End Sub