Sub ButtoClick()

Dim wbs2 As Worksheet

Dim wkb As Workbook

Dim strpath As String

Set wbs2 = Workbooks("Nov Collections-CF").Worksheets("Nov Collections-CF")

 Dim myday As Integer

​

     strpath = ("C:\Users\ashokkumar.d\Desktop\New folder (2)\")

    ran = ThisWorkbook.ActiveSheet.Range("A1:A16")

​

        For Each cel In ran

            myday = Day(cel)

            dDate = DateSerial(Year(cel), Month(cel), Day(cel))

            Set wkb = Workbooks.Add

            wkb.SaveAs FileName:=(strpath + "Nov Collections-CF" + myday + ".xlsx") 'Type Mismatch Error

            wbs2.Range("A1:K1").AutoFilter Field:=4, Criteria1:=Format(dDate, "dd/mm/yyyy"), Operator:=xlFilterValues

​

            wbs2.UsedRange.SpecialCells(xlCellTypeVisible).Copy

             With wkb.Sheets(1).Range("A1")

                    .PasteSpecial xlPasteFormats

                    .PasteSpecial xlPasteValues

                End With

​

            wkb.Save

            wkb.Close

        Next

​

End Sub