VBA メールとURLにハイパーリンク

vba
VBAでメールアドレスとURLにハイパーリンクを設定するサンプル
調べたら情報が少なかったので、両方へのハイパーリンク設定方法の
サンプルを記載します。
メールの場合
[vb]
sheet.Hyperlinks.Add Anchor:=sheet.Range(“A1″), Address:=”mailto:” + 【宛先】 + “?subject=” + “” + “&body=” + “”, TextToDisplay:=””
[/vb]
URLの場合
sheet.Hyperlinks.Add Anchor:=sheet.Range(“A1”), Address:=【URL】
[/vb]