All working fine now so thanks for the input.
Working code to copy the value of columns C to K onto cell A1 of the newly created workbook is as follows;
Code:rng.Columns("C:K").SpecialCells(xlCellTypeVisible).Copy shtDest.Range("A1").PasteSpecial xlPasteValues




Reply With Quote