Probably just wrap-around.Change these lines

Application.ScreenUpdating = False 'just while label is created and
formatted

For Each objOLE In ActiveSheet.OLEObjects
If objOLE.Name = "TTL" Then objOLE.Delete 'only one can exist at a
time
Next objOLE

to

Application.ScreenUpdating = False 'just while label is created
'and formatted

For Each objOLE In ActiveSheet.OLEObjects
If objOLE.Name = "TTL" Then objOLE.Delete 'only one can exist
'at a time
Next objOLE


--

HTH

RP
(remove nothere from the email address if mailing direct)


"John Robinson" wrote in message
...

Thank you for replying. I have tried your suggestion but it does not
work. I am trying to get it to work hovering over a label in a
worksheet. It fell over at the adding a form line and wouldn't even
allow debug!
John Robinson


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!