Try Dave's code shown below (in this post), you're not making a selection in your code, so it's selecting the entire sheet, bringing the entire sheet, filter, format, null values, etc...And it's making it large.
Sub move_to_new_workbook()
Application.ScreenUpdating = False
Dim CurrentFileName As String
Dim NewFileName As String
CurrentFileName = ActiveWorkbook.Name
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add Template:="Workbook"
NewFileName = ActiveWorkbook.Name
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks(CurrentFileName).Activate
Application.CutCopyMode = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Hope this helps. Cheers,
Nate
This message was edited by NateO on 2002-03-12 10:32