Try this:
1. Define a rnage name Insert Name Define
Name the range CellHasFormula
Refers to =Get.Cell(48,Indirect("rc",False))
2. Select the cell you want to use conditional format and format blue
3 Same cell select conditional formating and enter
Formula is =CellHasFormula
Set format to black


"Sunnyskies" wrote:

Afternoon,

Can you please tell me how to set up a default format setting where if user
inputs data in a cell the font is blue and if a formula is created then it
remains a black font?

The key element of the question is default setting.

Thanks