excel - Type mismatch error in vba while search and update

Question

The code below throws a Runtime Error: 13 Type mismatch. I have a list of thousands of URLs in the Sheet3, column A where I run my vba script. It finds each of the URLs in Sites, column B of 300 workbooks which is in a folder. If found, the column E of the same row is updated with Yes.

Sub ReplaceInFolder()
Dim strPath As String
Dim strFile As String
Dim wbk As Workbook
Dim wsh As Worksheet
Dim strReplace As String
Dim i As Long
Dim FoundCell As Variant
Dim FoundNo As String

strReplace = "Yes"
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        strPath = .SelectedItems(1)
    Else
        MsgBox "No folder selected!", vbExclamation
        Exit Sub
    End If
End With
If Right(strPath, 1) <> "\" Then
    strPath = strPath & "\"
End If
Application.ScreenUpdating = False
strFile = Dir(strPath & "*.xls*")
Do While strFile <> ""
    Set wbk = Workbooks.Open(Filename:=strPath & strFile, AddToMRU:=False)
    For Each wsh In wbk.Worksheets
    If wsh.Name = "Sites" Then
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Set FoundCell = wsh.Range("B:B").Find(What:=Cells(i, "A").Value, LookAt:=xlWhole, MatchCase:=False)
       If Not FoundCell Is Nothing Then
     FoundNo = FoundCell.Address
       Debug.Print FoundCell.Address
       Do Until FoundCell Is Nothing
   wsh.Cells(FoundCell.Row, 5).Value = strReplace
   Set FoundCell = wsh.Cells.FindNext(after:=FoundCell)
   If FoundCell.Address = FoundNo Then Exit Do
   Loop
   End If
    Next i
    End If
    Next wsh
    wbk.Close SaveChanges:=True
    strFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

标签： excelvbafind