opdatere labels

Jeg har flg
Label7.Caption = ActiveWorkbook.Sheets("Time Liste").Range("b9")
Den virker, men man skal klikke på label før den opdatere, hvordan får man den til at opdatere automatisk?
Og vil også gerne ændre formatet til at skrive ugedag (lø) og nogle til dato (10 okt) andre til (10-10-1009)

Skal lave mange labels er der mulig hed for at sige at labels 1-30 er fra kolonne b række 3-33?