move all sheets with scroll button on top

[spilner]

hi,i have hundreds of sheets.some sheets is on bottom.
i try to select all sheets and press CTRL HOME.just the square cursor is on top.
i want the scroll button is follow on top too.
any idea? thanks a lot

 

[CharlesChuckieCharles]

Just to clarify

every time you move to a sheet you want the cursor on the top left hand cell of each sheet cell(A1) ?

 

[spilner]

when i use CTRL home.the cursor will be in A1.
but the screen not moving too.
the screen still show me in bottom but the cursor is at A1.
i want the screen is moving on top too.thanks

 

[CharlesChuckieCharles]

Put this code into a new module

Public Sub SetA1Active()
Dim mysheet As Worksheet
Dim r As Long, c As Long
For Each mysheet In Worksheets
    r = 0: c = 1
 
    'Debug.Print mysheet.Name
    mysheet.Activate
    Do
        r = r + 1
        mysheet.Range(Cells(r, c).Address).Select
    Loop Until Selection.Rows.Hidden = False
        c = 0
    Do
        c = c + 1
        mysheet.Range(Cells(r, c).Address).Select
    Loop Until Selection.Columns.Hidden = False
 
Next mysheet
 
End Sub

save

and the run the macro
SetA1Active

it activates cell A1 on every sheet in a workbook, if it's not hidden else it activates the next closest non hidden cell to it

 

[spilner]

work perfect.it just takes sometime to finish as i have almost thousand of sheets.thanks man