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