If (Year(n) - Year(d) >= 1) Then
MsgBox "Latest Fiscal Year Data is" & dd & "Days," & md & "Months," & yd & "Years Old"
Sheets("" & Filename).Cells(5, y2).Font.Italic = True
Sheets("" & Filename).Cells(5, y2).Font.Color = RGB(0, 0, 255)
Sheets("" & Filename).Cells(5, y2).Font.Bold = True
Sheets("" & Filename).Cells(5, y2).Font.FontStyle = Arial
End If
Text Color turns to blue but other commands like italic bold are not executed
Aucun commentaire:
Enregistrer un commentaire