Kopierer en celles Font til en anden Celle i VBA Excell

Range("A2:A30").Font.Name = Range("A1").Font.Name
  Range("A2:A30").Font.Size = Range("A1").Font.Size

Ja men det er alt formateringen jeg ønsker at flytte til en anden celle og jeg skal gøre det flere gange.
Burde man ikke kunne gøre det i et hug ? som
Set myFont = mySetupRange.Font

Range("B1").Select
    Selection.Copy
    Range("A2:A30").Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False

her er formatpenslen brugt, men så får du også cellebredde og højde med

Ja den havde jeg oxo overvejet, synes bare at det er mærkeligt at man ikke kan sætte en celles fontobjektet på en gang.
Nå smid et svar gider ikke at rode mere med det

ok. men kan du bruge denne, her makerer du dine celler, der skal have formatet som A1, inden den køres.

  Range("A1").Copy
  Selection.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False