untested but to force a repaint you could try
to toggle the control's visibility?


with MyListbox ' or activesheet.olebojects(1)
.visible=false
.visible=true
end with


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


Ken McLennan wrote:

G'day there again One & All,

I'm currently almost finished a smallish project for my office,
and the last little bit has me stumped.