V UserForm1 máš Label1, ktorý má Caption nastavený na "Makro pracuje! ...". Túto hodnotu môžeš v makre jednoducho meniť, napr. takto:
UserForm1.Label1.Caption = pocetTo ukážkové makro sa dá zefektívniť tak, aby trvalo menej než 0,2 sekundy. Predpokladám, že aj makro, ktoré reálne používaš, sa dá napísať efektívnejšie. Otravné okienko typu "makro pracuje" potom možno ani nebudeš potrebovať.