Salve a tutti, ho un problema con una macro

Sub CheckIfFileExists()

Dim LRow As Integer
Dim LPath As String
Dim LExtension As String
Dim LContinue As Boolean




LContinue = True
LRow = 5
LPath = ThisWorkbook.Path & "\"
LExtension = ".PNG"


While LContinue


If Len(Range("F" & CStr(LRow)).Value) = 0 Then
LContinue = False




Else
If Len(Dir(LPath & Range("F" & CStr(LRow)).Value & LExtension)) = 0 Then
Range("B" & CStr(LRow)).Value = "No"
Else
Range("B" & CStr(LRow)).Value = "Yes"
End If
End If


LRow = LRow + 1


Wend


End Sub
Vorrei che mi cercasse anche nelle sottocartelle, ma purtroppo questo non succede... Qualche suggerimento? Grazie mille :271: