VBA エクセル 実行時エラー13：型が一致しません

質問

またまたお世話になります。
下記のマクロを走らせると、タイトルのようなエラーメッセージが出てしまいます。
Sub rows_hdn()
Dim n As Integer
Sheets("ABC").Select
n = 3
Do Until Cells(n, 2).Value = ""
n = n + 1
Loop
Sheets("EFG").Select
If n <> 3 Then
Rows("3:n-1").Select
Selection.EntireRow.Hidden = True
End If
End Sub

シートABCに入力がされているライン数だけ、シートEFGの3行目から隠したいのですが、どのようにすればよろしいのでしょうか？
よろしくお願いいたします。

回答No.1

hige_082 · ベストアンサー

エラーの原因は

Rows("3:n-1").Select
の行です
""の間は文字列になってしまいます

Rows("3:" & n - 1).Select
としなければなりません

お礼

hige_082さん、
御回答ありがとうございました。
我流で見よう見まねで覚えたVBAですので、基本的なことが分かっていないこと多いようです。。。
また機会がありましたら、何とぞよろしくお願い申し上げます。