Linkit näkyviin

No vaikkapa tällaisella

Sub Tarkista()
For Each c In Worksheets("Sheet1").Range("A1:c5")
With c.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

If c.Value <> "" Then
cc = c.Value
If c.HasFormula = True Then ' 111
c.Interior.ColorIndex = 38
If InStr(c.Formula, "!") > 0 Then
c.Interior.ColorIndex = 7 ' !linkki
End If
If InStr(c.Formula, "[") > 0 Then
c.Interior.ColorIndex = 3 ' Red !linkki
End If
' c.Interior.ColorIndex = 4 ' Green
Else
c.Interior.ColorIndex = 4
If c.HasArray = True Then
c.Interior.ColorIndex = 15 '
End If
If IsNumeric(cc) = True Then
c.Interior.ColorIndex = 6 'Yellow
End If
End If ' 111

End If
Next c
End Sub

Function IsFormula(cell_ref As Range)
IsFormula = cell_ref.HasFormula
End Function


End Function