Subito dopo l'assegnazione del .value della barra, inserisci la riga

Application.DoEvents()