Manipuler l'objet CB.Caption dans une boucle

Bonjour,

Je souhaite créer une boucle pour renommer différents boutons.
Actuellement j'ai le bouton CB1, CB2 et CB3 qui s'appellent tous les trois "New".
Je souhaite coder une boucle pour les renommer tous les trois "BIM".

Dim var as Object
Dim i as Integer

For i=1 to 3
var="CB"&i
Worksheets.var.Caption="BIM"
Next

Cela ne marche pas j'ai une erreur d'execution 91
"Variable d'object ou variable de bloc With non définie"

J'ai tous essayé, String, Variant, Object pour ma variable "var" rien à faire ca ne fonctionne pas.
Quelle est la bonne syntaxe ?

Merci