This is how I did it:

VB Code:
  1. For Each f2 In fj

  2.               If LCase(Right(f2.Name, 3)) = "doc" Then