Move to top of worksheet

[Noz2k]

I have a combobox which dependent upon the selection updates a worksheet.

However when the worksheet is updated the screen always shows the bottom of the sheet rather than the top.

How do I make it so that the screen shows the top of the form?

 

[Jameo]

Try this:

Sub ScrollAllSheetsTopLeft()
'Scrolls to topleft of all sheets
'Dimension variables
Dim sht As Worksheet
Dim shtActiveSht As Worksheet
'Determine the activesheet at start of code execution
Set shtActiveSht = ActiveSheet
'stop screen updates as code iterates sheets (Stops screen flashing)
With Application
    .ScreenUpdating = False
'iterate sheets moving the activewindow each time to row 1, column 1
    For Each sht In ActiveWorkbook.Worksheets
    sht.Activate
        With ActiveWindow
            .ScrollColumn = 1
            .ScrollRow = 1
        End With
'select top left cell on each sheet
    Range("A1").Select
    Next sht
'activate original starting sheet
shtActiveSht.Activate
'Turn screen updates back on
    .ScreenUpdating = True
End With
End Sub

Will only work if a range is selected at the end of your previous macro (not say a chart object)