Find Coloured Font in Excel Cell

[philipq]

I improvised on the code you provided to suit my need as below.
However, the code does not detect the red coloured font in column G of Excel.
The colour comes from conditional formatting.
Kindly advise where I am going wrong:

Macro NC VCC Release Corrections

Code:

Copy      Help

;obtainSANameFromAL

;;Check Autoline system for the correct SA Name and replace in Excel
esVCC.SelectCell("G1") ;;Select Header Cell of SA Names

for counter1 1 SANamesCheckListCnt
,r=esVCC._Range(ExcelRange(7 counter1)) ;;Checks each row on column G
,if r.Font.Color=255
,,out "yes"
,,out counter1
,,;;Obtain the stock# from same row
,else
,,out "not red"
,,out counter1