Change cell colour, after hyperlink activated

[russelldt]

I have 3 cells (A1, A2 and A3) that have hyperlinked Mailto functions. When i have sent the email hyperlinked in cell A1, i want that cell to change fill colour from "No Color" to green. The change must be permanent so that it's visible that the email has been sent each time the file is opened. The other 2 cells should operate the same.

Thank you

 

[Joe4]

You are welcome.
Glad we were able to help.

 

[russelldt]

You are welcome.
Glad we were able to help.

I have noticed that cell colors are changing in other cells, as well. The range should be columns AO and AP only. Any help here please.

 

[Joe4]

I have noticed that cell colors are changing in other cells, as well. The range should be columns AO and AP only. Any help here please.

OK, you originally said AN:AO. If you want AO:AP, you need to update that, i.e.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim rng As Range
    Dim cell As Range
    
    Set rng = Intersect(Range("AO:AP"), Target)
    If rng Is Nothing Then Exit Sub
    
    For Each cell In rng
        If cell <> "" Then cell.Interior.Color = 5287936
    Next cell
    
End Sub

This will only affect columns AO:AP.
If you have other columns changing color, then either you don't have this exact code, or have other code that may be interfering.