Can anyone help me include a paste special column width for the following code
Code:
On Error GoTo errorhandler
Range("A4:P" & Range("A4").End(xlDown).Row).AutoFilter Field:=5, Criteria1:=WeekNumber
'Range("A4:P" & Range("A4").End(xlDown).Row).AutoFilter Field:=4, Criteria1:="by CTL"
Range("A4:P" & Range("A4").End(xlDown).Row).Copy Workbooks(WeeklyName).Sheets("Sheet1").Cells(1, 1)