エクセル VBAで指定行のパターンを空白にする方法は？？

エクセルで、指定した行のみ、パターンを空白にしたいのですが、うまくいきません。
１行から５行までを指定する場合

・・・・・・
ActiveWindow.WindowState = xlMaximized
Rows("1:5").Select
Range("A5").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic　・・・・

と、入れると、１行目から７行目までのパターンが空白になってしまうのです。
試しに

・・・
Rows("1:3").Select・・・・

と入力すると、１行目から３行目まで空白になります。
これはどうしてなのでしょうか？？
１行目から５行目まで、特にセルを結合しているといこともないし、まったく理由がわかりません。

どのようなＶＢＡ入力をしたら、良いのか、教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： n-akina 回答日時： 2005/10/18 09:42

こんにちは。

　私の環境で以下のルーチンを実行したところ正しく1-5行のセルにパターンが設定されました。
Sub test()
ActiveWindow.WindowState = xlMaximized
Rows("1:5").Select
Range("A5").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

今お使いのExcelファイルに何かしら設定が入ってると思われます。
その設定がどういうものか推測するのは難しいので、新規にExcelファイルを作成し、試してみてはいかがでしょう。

では。

No.2 回答者： Wendy02 回答日時： 2005/10/18 09:59

こんにちは。

＞１行目から７行目までのパターンが空白になってしまうのです。

と言われても、お出しになっている情報からでは、そのようなことはありません。他に原因があります。

Select とかActivate は必要ないでしょうね。

With Rows("1:5").Interior
　.Pattern = xlSolid
　.PatternColorIndex = xlAutomatic
End With

ただ、このようなコードは、元にパターンが入っているのを戻すという場合だと思うのですが。