Then you can't use DisplayFormat so remove that part and use:

Cells(Num, 3).Interior.Color
instead.