used auto filter to build a macro works fine then copied it over and edited
for next sheet 8 times works all except 2 sheets. can see no diff except edit
I did. Here is one that works and one that doesn't five works six doesn't
six produces header no data. modules 1-5 work fine 6 out 7ok 8 out 9 ok all
copied from same. Hoping someone can see what is wrong. Can start over and
build 6&8 over if needed. For my knowledge would like to know what is wrong.
Thanks to All
Sub Five()
' Two Macro
' Macro recorded 9/28/2007 by Curtiss A. Greer
Range("D4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="5 Float"
Range("A1:N104").Select
Selection.Copy
Sheets("5").Select
Range("A1").Select
ActiveSheet.Paste
Columns("E:L").Select
Columns("A:A").ColumnWidth = 3.57
Columns("B:B").ColumnWidth = 11.29
Columns("C:C").ColumnWidth = 22.43
Columns("D:D").ColumnWidth = 15.14
Application.CutCopyMode = False
Selection.ClearContents
Range("G14").Select
Sheets("Data").Select
Range("E20").Select
Selection.AutoFilter
End Sub
Sub Six()
' Two Macro
' Macro recorded 9/28/2007 by Curtiss A. Greer
Range("D4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="6 March Mil"
Range("A1:N104").Select
Selection.Copy
Sheets("6").Select
Range("A1").Select
ActiveSheet.Paste
Columns("E:L").Select
Columns("A:A").ColumnWidth = 3.57
Columns("B:B").ColumnWidth = 11.29
Columns("C:C").ColumnWidth = 22.43
Columns("D:D").ColumnWidth = 15.14
Application.CutCopyMode = False
Selection.ClearContents
Range("G14").Select
Sheets("Data").Select
Range("E20").Select
Selection.AutoFilter
End Sub