@סתם-אחד-2
שים לב שהשמות של הקבצים שבאקסל כתובים בלי הסיומת, וכן אולי כדאי להוסיף TRIM גם בשמות הקבצים של התיקייה, כלומר אתה יכול לשנות את שורה 42 במאקרו מ
If LCase(fso.GetBaseName(fileItem.Name)) = LCase(fileBaseName) Then
ל
If Trim(LCase(fso.GetBaseName(fileItem.Name))) = LCase(fileBaseName) Then