Since I have some cells formatted as adate, I modified your code a bit:With ActiveWorkbook.Styles("Normal").IncludeNumber = False.Font.Name = "Times New Roman".Font.Size = 8End With