Hi everyone,
I used record macro and got some code.
It works till copying in the new workbook.
After that I have done some formatting. It strucks up with the 2nd part of
my code below, what should change any help on this...
---- The following part works.
Application.Goto Reference:="SENDRANGE"
ActiveWindow.SmallScroll ToRight:=2
Selection.AutoFilter Field:=1, Criteria1:="SHOW"
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Select

--- NOT WORKING FROM THE FOLLOWING LINES.
Application.CutCopyMode = False
Range("a1").Select
Rows("5:5").EntireRow.AutoFit
Columns("H:Q").ColumnWidth = 12
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Range("G5").Select
Columns("G:G").ColumnWidth = 9.86
Columns("D:D").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit