Hi Garry

Thanks for your reply. I will try it.

--
Best regards
Jorgen Bondesen

"GS" skrev i en meddelelse
...
I forgot to mention that your code neglects to reset the StatusBar to ready
status.

...
Set RRange = Nothing: Application.StatusBar = ""
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc