Not sure about the infinite loop, but your ununique() subroutine is not
going
to work, as you are referencing ActiveSheet instead of your loop
variable.

Scott

Person wrote:
I have what I hope is a simple looping question: I'm trying to
filter each of many worksheets in a workbook for the unique values
in a particular column, and then "unfilter" the whole workbook. My
"unique" function enters an infinite loop, I think. Any clues?

Sub unique()

Dim ws As Worksheet

For Each ws In Worksheets
'Columns("B:B").Select
ws.UsedRange.AdvancedFilter Action:=xlFilterInPlace, unique:=True
Next

End Sub


Sub ununique()

Dim ws As Worksheet

For Each ws In Worksheets
ActiveSheet.ShowAllData
Next

End Sub