For i = 1 To UBound(MyArr)
dDate = MyArr(i)
dDate = DateSerial(Year(dDate), Day(dDate), Month(dDate))
ldate = dDate
ws.Range("A1").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(1, dDate)
Application.ScreenUpdating = True
LR = ws.Range("A" & Rows.Count).End(xlUp).Row
If LR > 1 Then
If Not Evaluate("=ISREF('" & ldate & "'!A1)") Then
Set wsnew = Worksheets.Add(After:=Worksheets(Worksheets.Count))
wsnew.Name = ActiveSheet.Name = Format(dDate, "mmm-yy")
Else
Sheets(ldate).Move After:=Sheets(Sheets.Count)
Sheets(ldate).Cells.Clear
End If
ws.Range("A2:BR" & LR).SpecialCells(xlCellTypeVisible).Copy
wsnew.Range("A1").PasteSpecial xlPasteAll
ws.Range("A1").AutoFilter Field:=1
MyCount = MyCount + wsnew.Range("A" & Rows.Count).End(xlUp).Row - 1
wsnew.Columns.AutoFit
End If
Next i