You should be aware that the word "Err" is a keyword as in your line...

MsgBox Err.Description

...which refs the errors colection, and so I'm curious why you also use
it as a GoTo label. Better this way...

On Error GoTo ErrExit
'..code

NormalExit:
Exit Sub

ErrExit:
MsgBox Err.Description

...so your code is easier to understand what's going on. You might think
it's good for now but 6 months down the road will not recall your
reasoning. Also, another developer has to 'figure out' what you're
code's intent is. (Albeit this is fairly simple, bad habits can cause
greater problems!)

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion