ハイパーリンク数式がクリックされたときに起動するワークシート イベント マクロがあります。これは、ハイパーリンク先セルを「強調表示」(セル内部の色を変更) して、エンド ユーザーにより見やすくします。ユーザーが不要になったときに、宛先セルを「強調表示しない」(つまり、セルの内部の色を白に戻す) ように変更するにはどうすればよいですか? つまり、ハイライガーを「オン」にしたのですが、どうすれば「オフ」にできますか? 以下のコードはハイライトを「オン」にします。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ControlPoint As String
Dim RowVar As Integer
Dim Destination As String
If InStr(1, Target.Cells(1, 1).Formula, "HYPERLINK") = 0 Then Exit Sub
ControlPoint = Target.Value
RowVar = Application.WorksheetFunction _
.Match(ControlPoint, _
Sheets("Control Point Log").Range("c1:c700"), 0)
Destination = "C" & RowVar
Sheets("Control Point Log").Range(Destination).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -9.99786370433668E-02
.PatternTintAndShade = 0
End With
End Sub