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