ＥｘｅｌＶＢＡで参照渡し

質問

こんばんは。またお世話になります。m(_ _)m
土・日を利用してＶＢＡを学習しようと参考書を買ってきたのですが、基本構文について載ってなかったので質問します。

Sub Main()
subject1(Range("A1:B2"))
End Sub

Sub subject1(arg As Range
上の式にてエラーが出る為ヘルプを参照したところ、どうも
Range()が返すオブジェクト参照を Sub subject1(argument As Range) で受けられないようだと分かったのですが、ではどうやって参照を渡せば良いのかが分かりません。
VBは触った事がなく、初歩的かと思いますが、どなたか教授願えませんでしょうか。また、どこか参考になるサイトを教えて頂ければ助かります。

回答No.1

nishi6 · ベストアンサー

Sub Main()
　　Call subject1(Range("A1:B2"))
End Sub

Sub subject1(arg As Range)
　　Range("C1") = Application.Sum(arg) '使用例
End Sub

または
Sub Main()
　　subject1 Range("A1:B2")
End Sub

で動くと思います。

私は　http://www.moug.net/tech/index.htm　を参考にしています。

お礼

お早い回答ありがとうございます。
おっしゃられる通りにして動きました。
こんな単純なことを見落としてたとは。お恥ずかしい限りです。（でも一人で考えてても多分気付かなかったと思います）
nishi6さんのお陰で大変助かりました。参考URLも参照しながら、分からない所があればまたお知恵を拝借するとおもいます。今回は本当にありがとうございました。