Dim sMsg As String

    FolderName = Sheet6.Range("B5")


     ' create list of workbooks in foldername
    wbCount = 0
    wbName = Dir(FolderName & "\" & "*.xls")

    While wbName < ""
        wbCount = wbCount + 1
        ReDim Preserve wbList(1 To wbCount)
        wbList(wbCount) = wbName
        wbName = Dir

    Wend
     ' confirm that correct files exist within selected folder
    If wbCount = 0 Then MsgBox Prompt:="No Excel files exist in this
 Directory.  Please select a different folder.", Buttons:=vbOKOnly
    If wbCount = 0 Then Exit Sub

    r = 0
    For i = 1 To wbCount

         ' confirm that files are using correct version number

        rsVersion = GetInfoFromClosedFile(FolderName, wbList(i),
 "sheet1", "A2")
        If rsVersion < "Version 1.0" Then

                sMsg = sMsg & vblf & "'" & wb.FullName & "'"

        End If

    Next i

     If Len(sMsg) Then
            MsgBox "One or more of files in '" & FolderName  & "' are from " 
& _
             "a version other than Version 1.0.  These files a" & vblf & 
_
             sMsg
      End If

 End Sub

 Public Function GetInfoFromClosedFile(ByVal wbPath As String, _
    wbName As String, wsName As String, cellRef As String) As Variant
    Dim arg As String
    GetInfoFromClosedFile = ""
    If Right(wbPath, 1) < "\" Then wbPath = wbPath & "\"
    If Dir(wbPath & "\" & wbName) = "" Then Exit Function
    arg = "'" & wbPath & "[" & wbName & "]" & _
    wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1)
    On Error Resume Next
    GetInfoFromClosedFile = ExecuteExcel4Macro(arg)

 End Function