スキルアップ・問題解決なら、モーグにおまかせ！

VBAを複数使用する方法がわかりません。
 
�@
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto Selection, True
End Sub
 
 
�A
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Target.Range.Style = "Followed Hyperlink"
End Sub
 
�@�Aを一緒に使用したいのです。
 
シートモジュールの�@の下に�Aを貼り付けたらエラーになりました。
 
【内容】
�@ハイパーリンクで指定したセルが移動した時に左上の表示になること
�A「セルを結合して中央揃え」にしたハイパーリンクが設定されているセルを
　クリックした時に文字の色を変える
 
よろしくお願いします。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Application.Goto Selection, True
    Target.Range.Style = "Followed Hyperlink"
End Sub

ちなみに、シート内で同じイベント プロシージャは複数設定できないです。

できました！！
 
ありがとうございました(^^)/