excel vba file search

[batman61]

using this code returns 0 files found
from windows search the files are found...
I AM LOST IN THIS THING

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 10 And Target.Row = 1 Then
Cancel = True
For Each c In Range("fnam")
fn = c.Value
FilePath = "C:\SC Engineering"
FileSpec = fn '& ".*"
MsgBox FileSpec
FilesFixed = 0

Set FS = Application.FileSearch

With FS
.NewSearch
.LookIn = FilePath
.FileName = FileSpec
.SearchSubFolders = True
.Execute
foundFileCount = .FoundFiles.Count
MsgBox .FoundFiles.Count
End With
If foundFileCount = 0 Then
MsgBox "No files found."
Exit Sub
End If
Next c
Else: Cancel = False
End If
End Sub