参照できません

質問

マクロ初心者です。
　エクセル２００３で、ユーザーフォームにコンボボックスを２個作り、郵便番号が絞り込み検索できるようにしたいと思い奮闘中です。
　色々検索して、ユーザーフォームのイニシャライズに次の構文を書くとできるとので試しました。詳細は分からないまま構文をコピーして貼り付けました。
ComboBox2.Clear
With Worksheets("Sheet1")
If .Range("A65536").End(xlUp).Row = 1 Then Exit Sub
Set Rng = .Range("A1", Range("A65536").End(xlUp))
a = Rng.Value
Set dic = CreateObject("Scripting.Dictionary")
For Each b In a
dic.Item(b) = Empty
Next
a = dic.Keys
ComboBox2.List = a
End With
シートのデータは
A列　　　B列
北海道　 札幌
北海道　 函館
・　　　 ・
・　　　 ・
です。
　エクセルの新規ブックにこの構文だけ貼り付けて実行する場合は、コンボボックス２に該当するB列のデータが表示されるのですが、他のVBAが記述されたユーザーフォームのイニシャライズにこの構文を貼り付けると、どうしても４行目でエラーになってしまいます。エラーメッセージは「見つかりません・・・参照・・・」だったと思います。（会社のパソコンでの出来事ですので、今は、エラーメッセージを控えておらず申し訳ありません...）
　そもそも構文を分かっていないままの質問で大変恐縮なのですが、どなたかお力をお借りできませんでしょうか。
　よろしくお願いいたします。

回答No.1

watabe007 · ベストアンサー

>どうしても４行目でエラーになってしまいます。
Set Rng = .Range("A1", .Range("A65536").End(xlUp))
　　　　　　　　　　　　　　　　↑カンマ忘れ

お礼

ありがとうございました！　できました!(^^)!
　また何かありましたらよろしくお願いします。