Hi,
Would anyone be able to tell me why the following is not working?
ActiveSheet.Range("$A$1:$L$408").AutoFilter Field:=1, Criteria1:="="
Range("A1:A2000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
TIA
Bookmarks