Do this to identify the error and then show a NEW userform to add your
desired controls
Above the line that gets the error message put this
On Error Goto ErrorHandler
Somewhere else in the script type
ErrorHandler:
If Err.Number = 381 then
userform.show ' Put you NEW userform name here
exit sub 'Keep this if you want to terminate the userfrom here
end if
With this you will then need to create a NEW userform to accomodate the
controls you require
Let us know how you get on and If you have any trouble you can email me at
--
Message posted via http://www.officekb.com