Hello

I am simply trying to make a macro that colours cells in the current selection in blue, for those cells having a formula with external (i.e. other sheets or workbooks) references. The current code is below, but where I am stuck is: how can i find a way to define "hasformula" better and add the "external link" component. Any idea? That'd be super helpful ! Thanks a lot

Sub FontColor()

'FontColor Macro
'Color = -39424

If Selection.HasFormula Then
    With Selection.Font
        .Color = -16751104
        .TintAndShade = 0
    End With

End If
End sud