Need help to filter attachments to certain file extensions exp. .pdf, .xls, .las

The Code works just need help with filtering the attachments to certain file extension for example (*.PDF, *.XLS, *.LAS) Thanks in advanced

Dim OutApp As Object
    Dim xlSheet As Object
    Dim OutMail As Object
    Dim i As Long
    Dim SendTO As String
    Dim olInsp As Object
    Dim wdDoc As Object
    Dim oRng As Object

    SendTO = Range("W5").Value
    SendCC = Range("H36").Value
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Set xlSheet = ActiveWorkbook.Sheets("COG Inter-Curve-Lateral")
    xlSheet.Range("C7:I25").Copy
    
    On Error Resume Next
    With OutMail
        .To = SendTO
        .CC = SendCC
        .BCC = ""
        .Subject = Range("C1")
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range
        oRng.Collapse 1
        oRng.Paste
        For i = 23 To FileCount + 27
            .Attachments.Add (Range("W20").Value & "\" & Range("W" & i).Value)
        Next i
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Range("A1").Select
    Application.CutCopyMode = False

    Set OutMail = Nothing
    Set OutApp = Nothing
    Set xlSheet = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
End Sub

Possibly with...

        For i = 23 To FileCount + 27
            Select Case Right(Range("W" & i).Value, InStrRev(Range("W" & i).Value, ".") - 1)
                Case Is = "PDF", "XLS", "LAS"
                    .Attachments.Add (Range("W20").Value & "\" & Range("W" & i).Value)
            End Select
        Next i

Just tried the code you sent. it creates the email but with no attachments.

The code assumes the file's name is in Range("W" & i).

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

First Click on Attachments the choose file location, it will ask you once for file location (this will put the file location on cell (W20) then once again the search for the file on that same folder. file name will be on (W22:W42). Thanks for your help

Try this version...

        For i = 23 To FileCount + 27
            Select Case Right(Range("W" & i).Value, Len(Range("W" & i).Value) - InStrRev(Range("W" & i).Value, "."))
                Case Is = "PDF", "XLS", "LAS"
                    .Attachments.Add (Range("W20").Value & "\" & Range("W" & i).Value)
            End Select
        Next i

Same results as before it creates the email but no attachments. Thank you for being patient and for your help.

Try this...

        For i = 23 To FileCount + 27
            Select Case UCase(Right(Range("W" & i).Value, Len(Range("W" & i).Value) - InStrRev(Range("W" & i).Value, ".")))
                Case Is = "PDF", "XLS", "LAS"
                    .Attachments.Add (Range("W20").Value & "\" & Range("W" & i).Value)
            End Select
        Next i

Thank you for all your help that did the trick.

Glad to do it!