Hiya bob,

Thanks for the response..

tried the code but it is showing a syntax in

cCols = Worksheets("Input").Cells(3,
Columns.Count).End(xlToLeft).Column


any ideas?

regards
Stephen.