for eack wks in worksheets
LastRow = wks .Cells(Rows.Count, "D").End(xlUp).Row

it dosnt seem to like this bit, am i doing something wrong ?

--
scottymellot
-----------------------------------------------------------------------
scottymelloty's Profile: http://www.excelforum.com/member.php...nfo&userid=380
View this thread: http://www.excelforum.com/showthread.php?threadid=27150