Using vba I'd like to change the formatting/colours on a particular cell
if the cell contains text.

So for example:

If Application.WorksheetFunction.IsText(Cells(i, ColNum)) Then
                Cells(i, ColNum).Font.Bold = True
                Cells(i, ColNum).Interior.ColorIndex = 40
End If

This works fine for cells which do contain text but not for cells which
contain 'linked text'. I have some cells which are linked from a 2nd
sheet and in the 2nd sheet they contain text.

The code above does not work because there the cell contains ='Sheet2'!B93

How can I get the results I'm needing?

Thanks
Steve