vba ハイパーリンクからシートのインデックス番号取得

Question

現在アクティブシートのインデックスを取得して処理を行うマクロを組んでいるのですが、インデックスの取得をタイトル通り、ハイパーリンクから取得して処理を行うようにしたいのです。
ハイパーリンクからリンク先のシートのインデックス番号を取得することは出来ますでしょうか？

Answer 1

こういうことでしょうか？

sd = Split(Cells(1, 1).Hyperlinks.Item(1).SubAddress, "!")
Debug.Print Worksheets(sd(0)).Index

Cellsの位置は適宜修正してください。
またエラー処理もしていないので、適当に修正願います。

エラー処理あり版

With Cells(1, 1)
    If .Hyperlinks.Count > 0 Then
        sd = Split(.Hyperlinks.Item(1).SubAddress, "!")
        For Each ws In Worksheets
            If ws.Name = sd(0) Then
               Debug.Print ws.Index
               Exit For
            End If
        Next
    End If
End With

Comments

[coko1]

回答ありがとうございます。まさに求めていたものでした。
質問自体は上記の回答でベストアンサーになるのですが、選択したセルにハイパーリンクがなかった場合（エラー時）処理を行わないようにするにはどのようにしたらよいのでしょうか？

[ttyp03]

エラー処理を追加してみましたのでご確認ください。

[coko1]

ありがとうございます！
Worksheets(sd(0)).Indexで検索するシート名が存在しないシート名だった場合は落ちたりしないでしょうか？

[ttyp03]

ああ、落ちますね…。
修正してみました。
ご確認ください。

[coko1]

度々質問してしまってすみません。
おかげさまで求めていたことが実現できました。ご協力ありがとうございました。