Extracting data from a different workbook and creating multiple workbooks - how to format

[Holley]

Thanks for all the past help I've received from the forum! It has been a lifesaver! I have a question I hope you can help with. I have a very large file with usually 2,000 - 3,000 rows. I have a macro that will extract all the rows with matching data in column C and put them into a new workbook and save the file with the value of column C. My problem is that the format is lost when the new file is created. Can anyone shed any light to help me retain the format? Its mixed with date, currency, etc.

Thanks again!

 

[Holley]

Thanks! The page is landscape, but it doesn't scale the columns to one page.

 

[QuietRiot]

     With Destwb.Sheets(1).PageSetup
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

[/CODE]

 

[Holley]

PERFECT! Thank you so very much!!