再びＥｘｃｅｌの自動スクロールアップのマクロについて

質問

Ｅｘｃｅｌ２００２をＯｐｅｎした時自動的にスクロールアップするマクロを識者より教えて頂きました。
下記の回答です。

ThisWorkbookのWorkbook_Openイベントに下記をコピペ
する。
Private Sub Workbook_Open()
ActiveSheet.Cells(1, ActiveCell.Column).Select
End Sub

結論は上記で目出度く目的が達せられましたが
実はＢｏｏｋの中の複数あるＳｈｅｅｔの内、立ちあがった時、開いているＳｈｅｅｔにしかこのマクロが働いて後の複数のＳｈｅｅｔはスクロールアップはしません。

質問はＢｏｏｋをＯｐｅｎした時Ｂｏｏｋの中にある全部のＳｈｅｅｔがスクロールアップすることが出来る方法はあるのでしょうか。
よろしくお願いします。

回答No.1

imogasi · ベストアンサー

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Select
ws.Cells(1, ActiveCell.Column).Select
Next
End Sub
でやって見てください。
私のテストでは上手く行くようです。

お礼

再再度有り難うございます。目出度く正常に働きました。感謝いたします。

追記
最初教えていただいたときにうまく働かない現象が出ましたが、よくよくいろんなとこを見ていましたらＥｘｃeｌ２００２で働いているのですがＶＢＡ上ではＥｘｃｅｌ９７に成っているのを見つけました。（長年の積み重ねのＤＡＴＡです）
最初２００２にＳｈｅｅｔをＣｏｐｙしも駄目で、なんら変化無く９７のままだったので、２００２新規にＤＡＴＡのみＣｏｐｙし新たに作り直したら最初に教えて頂いたマクロが正常に働いたわけです。それから今回の質問に成った次第です。