ｅｘｃｅｌマクロ実行エラーで原因が分からない

複数行を選択して非表示にするマクロを組んでますが、PCによっては実行エラーがでるPCと出ないPCとで２通りで原因が分かりません。
Range( _
"11:11,17:17,23:23,29:29,35:35,41:41,55:55,67:67,73:73,79:79,85:85,91:91,111:111,117:117,123:123,129:129,135:135,141:141,147:147,153:153,159:159" _
).Select
Selection.EntireRow.Hidden = True

最後の行でエラーがでて
「実行時エラー'-2147417848（80010108）：
'EntireRow’メソッドは失敗しました：’Range’オブジェクト」とでます。
また、実行したPCもWin-XP+EXCEL2003とVersionは同じです。
なぜ一方にはエラーがでるのか分かりません。どなたかヒントでもいただけないでしょうか？

No.2 回答者： Wendy02 回答日時： 2009/05/20 20:55

こんばんは。

コードとしては、無理がありますが、片方にエラーが出るという理由は、分かりませんね。シートの保護でもしてあれば、そのようなエラーが発生しますね。

Sub Test1()
　　Dim nRng As String
　　Dim n As Variant
Dim ur As Range　
　　nRng = "11,17,23,29,35,41,55,67,73,79,85,91,111,117,123,129,135,141,147,153,159"
　　Set ur = Rows(11) 'エラー用のダミー
　　For Each n In Split(nRng, ",")
　　　　Set ur = Union(Rows(n), ur)
　　Next
　　ur.EntireRow.Hidden = True
　　Set ur = Nothing
End Sub

この回答へのお礼

遅くなりましたがありがとうございました

お礼日時：2009/05/23 22:21

No.1 回答者： Sinogi 回答日時： 2009/05/20 18:47

なぜエラーになるのかは不明ですが

Rows(11).Hidden = True
Rows(17).Hidden = True
Rows(23).Hidden = True

のようにするのはいかがですか？