Déclarer une police d'écriture en variable

Bonjour,
Je vous explique succinctement mon problème.
J'ai une longue macro qui génère x feuilles d'un classeur. Les feuilles sont toutes différentes et sur chaque feuille j'ai des cellules dont je choisi la police d'écriture. Ces cellules sont parfois fixes (toutes les A1 par exemple), parfois mobiles (en fonction d'une variable) et non contiguës.
Pour chaque cellule concernée jusqu'ici je paramétrais manuellement la police d'écriture comme ceci:
Range("A1).Font.Name= "Comic Sans MS"

Et si je voulais changer de police je devais dérouler toute ma macro pour faire le changement de police.

Je me demande si je ne pourrais pas déclarer une variable Police qui dirait quelque chose comme ça:
Police="Comic Sans MS"

Ce qui me permettrai d'écrire ensuite pour chaque cellule Range("A1").Font.Name= Police
Pour que si l'envie me prend de changer de police je n'ai que le nom de la police à changer dans la déclaration de Police!

Merci beaucoup de votre aide!