How to prevent VBA from attaching a particular file when it generates email

I have macro that builds and attaches files from a folder that is designated. The problem is an excel file gets added to that folder that I don't need when my email gets generated. can you instruct the code to ignore attaching that file. that way I don't have manually delete it every time the email is generated. this is what I have that send the email.

EDir = Sheet24.Range("av2").Value
   
 For Each Cell In ActiveWorkbook.Sheets("Noralis Email Gen (3)").Range("ai4:ai41")
        If Cell.Value Like "?*@?*.?*" Then
            strto = strto & Cell.Value & ";"
        End If
   Next Cell
    If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)
   
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    Set rng = Nothing
    Set rng = Range("u4:ab7")
    
    Set fso = CreateObject("scripting.filesystemobject")
    
'   This will create an email in Outlook
    Set olApp = CreateObject("Outlook.Application")
    Set olEmail = olApp.CreateItem(0)

'   Setup retrieval of attachments folder
    Set fso2 = CreateObject("Scripting.FileSystemObject")
    Set fsFolder = fso.GetFolder(EDir)


'   Display and create the properties of the email
    With olEmail

        .Display
        .To = strto
        .CC = ""
        .BCC = ""
        .Subject = Range("v10")
        .HTMLBody = RangetoHTML(rng) & .HTMLBody

        For Each fsFile In fsFolder.Files
            .Attachments.Add EDir & fsFile.Name
        Next
    End With

On Error GoTo 0

The file is Named "rawsurveys.xls"

thanks

Thank you for attempting to add code tags. Please note that the closing tag requires a forward slash / rather than a backslash \. I have amended this for you.

You have marked this thread as solved - is it?

In case it isn't.

For Each fsFile In fsFolder.Files
    If fsFile.Name <> "rawsurveys.xls" Then
        .Attachments.Add EDir & fsFile.Name
    End If
Next