VBA Loop, And Check Function

Hi All,

I really need help with this! The goal of my code is to loop through all files in a folder and have it return the names of files that contain a named range called "PullData". I have a loop macro that goes through the directory to pull file names and a function that checks... but they are not working together. Please help! Thanks!!

Sub CommandButton()

Application.ScreenUpdating = False

'Unhide Sheet11 (Formulas)
Sheet11.Visible = xlSheetVisible

Sheets("Formulas").Select
'PART 1: Loop File
'Turn off screen updating
'Application.ScreenUpdating = False

'File list
Dim Directory As String
Dim FileName As String
Dim IndexSheet As Worksheet
Dim row As Long
UserDir = Sheets("Formulas").Range("C2").Value

'Change the directory below as needed
Directory = UserDir
If Left(Directory, 1) <> "\" Then
Directory = Directory & "\"
End If

row = 11

Set IndexSheet = ThisWorkbook.ActiveSheet

FileName = Dir(Directory & "*.xls")

Do While Name("PullData") And FileName <> ""
IndexSheet.Cells(row, 2).Value = FileName
row = row + 1
FileName = Dir
Loop

Set IndexSheet = Nothing

'Go to MoveItems
MoveReplaceRenew

'Hide Sheet11
Sheet11.Visible = xlSheetVeryHidden
'Turn on screen updating
Application.ScreenUpdating = True



End Sub

'------------------------CHECK FUNCTION---------------------
Function Name(NamedRange As String, _
Optional WB As Workbook) As Boolean

Dim N As Long
On Error Resume Next
N = Len(IIf(WB Is Nothing, ThisWorkbook, WB).Names("PullData").Name)
NameExists = (Err.Number = 0)

End Function"

Thanks, Richard! What's a good, quick way to open the file and check for it?