Resolved: Enumerating Fonts quick Q

I found this code to enumerate fonts from a post in 2002.

Dim fThis As Font

For Each fThis In Screen.Fonts
Debug.Print "Screen font " & fthis.Name
Next fThis

seems to me like it should work. However, I get a compile error:

"Argument not optional" with the .Fonts in the for..each loop highlighted.

I can't figure this one out.

Thanks.

Spetnik, I walk away from my desk and you beat me to the post.
I had very similar code. Even Dim i as integer.
So I deleted the post.

:)