Highlight the cell after clicking on the hyperlink in the cell

[KTSARA]

Hello experts,
I have an excel table which has hyperlinks in column D. I want to change the color of the cell to green after clicking on the hyperlink. What I want is not to highlight the active cell. I want the cell to have its color permanently after clicking on the hyperlink once. Can anyone of you tell me if this is possible? If it is possible can anyone of you experts help me to get this done.
I found several codes which highlight the cells linked by a hyperlink, but they are not a match to my requirement. Any help from you is highly appreciated.
Thanks a lot in advance.

 

[FormR]

Hi, right click the sheet that contains the hyperlinks, choose "View Code" and past the following code into the sheets code module.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Target.Range.Interior.Color = vbGreen
End Sub

Save the workbook as a macro enabled workbook (.xlsm)

 

[KTSARA]

Hi, right click the sheet that contains the hyperlinks, choose "View Code" and past the following code into the sheets code module.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Target.Range.Interior.Color = vbGreen
End Sub

Save the workbook as a macro enabled workbook (.xlsm)

Hello,
Thank you so much for taking your time to reply my question. I pasted the code, but still nothing happens. I have the below formula in my hyperlink cell. Does it affect the code?

=HYPERLINK("mailto:"&C2&"?subject="&"Service Reminder"&"&cc="&"l.w@adv.world"&"&body="&"There is a Service scheduled on "&$B$2,"Send Notification")

Thanks a lot in advance

 

[FormR]

I have the below formula in my hyperlink cell. Does it affect the code?

Hi, yes it does.

You could try this instead - still in the worksheets code module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Left(Target.Formula, 11) = "=HYPERLINK(" Then
    Target.Interior.Color = vbGreen
End If

End Sub

 

[KTSARA]

Hi, yes it does.

You could try this instead - still in the worksheets code module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Left(Target.Formula, 11) = "=HYPERLINK(" Then
    Target.Interior.Color = vbGreen
End If

End Sub

Hello,
This works perfectly. Many thanks for your valuable time and effort.