Sub cmd() Cells(1, "D").Value = "Text" Cells(1, "D").Select With Selection .Font.Bold = True .Font.Name = "Arial" .Font.Size = 72 .Font.Color = RGB(0, 0, 255) 'Dark blue .Columns.AutoFit .Interior.Color = RGB(0, 255, 255) 'Cyan .Borders.Weight = xlThick .Borders.Color = RGB(0, 0, 255) 'Dark Blue End With End Sub