Issue with exhibiting VBA Macro to create new sheets

[Siddhu11011]

Hi there.... I have macro in place to create sheets as per the date available in column E
Example:
I have 4 dates in column E such as
04/22 - 0428
Dates have been derived by Filter function

But I'm getting an error, please check below codes and advice
For each x "(range)" In Range ([E2], cells(rows.count, "E").End(xlup))
With rng
.Autofilter
..Autofilter Feild:=1, Criteria:=x.value
Sheets.add(After:=Sheets(Sheets.Count)).Name= x.value
End With
Next x

"Error is because of x.value" Any advice on this?

 

[Domenic]

Actually, it looks like you have a few errors.

First, you'll need to get rid of this part "(range)". So you'll need to replace...

For each x "(range)" In Range ([E2], cells(rows.count, "E").End(xlup))

with

For Each x In Range([E2], Cells(Rows.Count, "E").End(xlUp))

Then you'll need to remove the extra dot ( . ) at the beginning of your autofilter line, and you'll need to correct the spelling for the named arguments. So you'll need to replace...

..Autofilter Feild:=1, Criteria:=x.value

with

.AutoFilter field:=1, Criteria1:=x.Value

Hope this helps!