instead of forecolor use .font.color You will have to refer to the range youare applying it to.e.g. Activesheet.Range("A7").font.color=7