strURL = r.Hyperlinks(1).Address
ステータスバーにメッセージ表示
Application.StatusBar = "表示文字"
Application.StatusBar = False 'Excelに返す
ハイパーリンク一括削除
ActiveSheet.Hyperlinks.Delete
InstrRev関数
後ろから探して、前から数える
Interior.ColorとInterior.ColorIndex
Interior.Colorでは背景色未設定が判別できないので、以下のようにする。
If Interior.ColorIndex=xlNone Then
最悪、16777215で比較するとできる