EXCEL97のマクロです。

結局

MXF03305さんの回答を応用して、
Range(”H8”).Select
ActiveWindow.SmallScroll ToRight:=0
ActiveWindow.SmallScroll Down:=0
で、H8を移動することができました。

Re:結局

MXF03305です。中途半端ですいません。
Office2000の環境でするとSelectした時点でＡ１が左上のままだったり
画面がそのまま移動しなかったりします。
Range(”A1”).Select
ActiveWindow.SmallScroll ToRight:=Range(”H8”).Column - 1
ActiveWindow.SmallScroll Down:=Range(”H8”).Row - 1
にするのもの１つの手かと思われますので参考にしてください。

（投稿者削除）

Re(2):結局

とりあえず、対象のセルより左の列と、対象のセルより上のセルを非表示にするというやり方を。（スクロール幅の影響を受けません）
要らない行と列を削除して、本当にA1にしてしまうことも可能です。

********以下サンプル*********
’選択中のセルをA1の位置に表示する
Sub setActiveCellToA1()

Dim targetColumn As Long ’左上に表示したい列のインデックス
Dim targetRow As Long ’左上に表示したい行のインデックス

’隠すべき行と列の端を取得
targetColumn = ActiveCell.Column - 1
targetRow = ActiveCell.Row - 1

’一回全部表示させる(行列を削除して詰めてしまうならこの処理は不要）
showAllCells

’列を隠す（すでに左端ならば何もしない）
If targetColumn > 0 Then
Range(Columns(1), Columns(targetColumn)).Select
’表示位置が左上になれば良いだけなら(1)
’列を削除して本当にA列にしたいなら(2)
Selection.EntireColumn.Hidden = True ’…(1)
Selection.EntireColumn.Delete ’…(2)
End If

’行を隠す（すでに1行目ならば何もしない）
If targetRow > 0 Then
Range(Rows(1), Rows(targetRow)).Select
’表示位置が左上になれば良いだけなら(1)
’行を削除して本当に1行目にしたいなら(2)
Selection.EntireRow.Hidden = True
Selection.EntireRow.Delete
End If

’動かしたカラムにフォーカス
Cells(1, 1).Activate
End Sub
Sub showAllCells()

’セルを再表示
Cells.Select
Selection.EntireColumn.Hidden = False
’行を再表示
Rows.Select
Selection.EntireRow.Hidden = False

End Sub

メンボクない

すんません。シート内に空白セルが混在する場合に全然対応できてませんでした
やるならば、こう、でした

’先ず適当な位置まで右下に飛んで
Range(”z50”).Select
’h8に戻る
Application.Goto Reference:=”R8C8”

もっとも、MXF03305さんの回答と、その応用例の方が圧倒的にスマートなので
蛇足ながらの補足です。失礼しました