エクセル97の罫線について
EXCEL９７の罫線について教えてください。
マクロで、単純にデータのあるセルに罫線を引きたいと考えています。
ACCESSのデータをEXCELにエクスポートしてからEXCELのシートを開くので、
シートの列（横幅）はどれだけあるかわかりません。ちなみに行のマックス行の取得の仕方はわかっています。
現在、下のようなコードで５枚のシートに罫線を引いているのですが、すべてのシートが一枚目のシートの列行と同じだけ罫線が引かれてしまいます。
==========================================================
Public Sub get_keisen(sheet As String) ←シート名が引数
Set ws1 = Worksheets(sheet) '罫線を引くシート
Dim maxRow As Long '最大行
Dim I As Integer
Application.ScreenUpdating = False
ws1.Activate
'シートの最大行を得る
ws1.Activate: maxRow = ws1.Range("A65536").End(xlUp).Row
'シートの横幅を得る
I = 1 'デ-タ１行目設定
Do Until Cells(1, I) = ""
I = I + 1
Loop
'罫線を引く範囲(全体)を選択
ws1.Activate: Range("A1:I" & maxRow).Select
～ 罫線を引く処理文 ～
end sub
===========================================================
もっと簡単な方法があればその方法でかまいません。
宜しくお願い致します。
