VBA関数の使い方がわからないです

質問

A1にはハイパーリンクとしてhttp://www.yahoo.co.jp/
が入っていて、標準モジュールで

Sub Macro1()
MsgBox HyperlinkAddress
End Sub
Function HyperlinkAddress(target As Range) As String
HyperlinkAddress = target.Hyperlinks(1).Address
End Function

としたら、引数は省略できません。になるのですが、
どうすればいいですか？

Sub Macro1()
MsgBox Selection.Hyperlinks(1).Address
End Sub

これと同じような事を、関数を使って表現したいです。

回答No.1

kybo · ベストアンサー

こうでしょうか？

Sub Macro1()
MsgBox HyperlinkAddress(Selection)
End Sub

Function HyperlinkAddress(target As Range) As String
HyperlinkAddress = target.Hyperlinks(1).Address
End Function

Function HyperlinkAddress(target As Range) As String
で引数を「target As Range」を必須にしているので、Rangeオブジェクトの引数付で呼び出さなければなりませんので、呼出側は「HyperlinkAddress(Selection)」です。

お礼

こういうことです！
関数で「target As Range」を使っている場合は(Selection)にしてあげるのですね。
勉強になりました。ご回答ありがとうございました。