"GS" wrote in message
...
GS was thinking very hard :
LastRowOfData = oWs.Cells(oWs.Rows.Count, Columns(Column).End(xlUp).Row

Oops! Change to this:

LastRowOfData = oWs.Cells(oWs.Rows.Count, Column).End(xlUp).Row

--
Garry

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



nice addition, thanks
mark