Putting
 

I need some help! I would like to have everysheet in the workbook put
the cursor in cell A1. I have already written some code and this will
keep every worksheet nice and neat when someone selects a particular
worksheet. Below is what I have so far. The problem is the cursor
goes in the cell A1 but the sheet isn't scrolled up. For instance, if
the cursor is in cell C100, the code puts the cursor in cell A1, but
the worksheet stays where cell C100 is visible and doesn't scroll up to
so cell A1 is visible. Any help is much appreciated. Thanks in
advance.


Dim WkSheet As Worksheet
For Each WkSheet In ActiveWorkbook.Worksheets
WkSheet.Activate
ActiveSheet.Range("A1").Activate
Next

Matt