Hi
i will appreciate any help on below mention query.
1.I have workbook consist of 4sheets
2.I want to filter each cell value in column A from sheet1
3.and same cell value will get Autofilter in sheet2, sheet3, sheet4 also
i got below mention code on net but it autofilter only particular Criteria in all sheets
i want to Autofilter each value from sheet1 same will get Autofilter on sheet2,sheet3 & sheet4
& create newworkbook and paste value in respective sheets of new workbook for each value in sheet1
Code
Sub FilterAllSheets()
Dim i As Long
i = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
ActiveSheet.Select
sht.Range("A1:A20").AutoFilter Field:=1, Criteria1:="Kites"
Next
Application.Calculation = i
End Sub
Display More