Excel VisualBasic Script

Sub font()
    Debug.Print range("A1").font.Background
    
End Sub