how to incorporate error handling into this

[bdouglas1011]

I have this code

With olEmail
        .Display
        .HTMLBody = EmailBody & .HTMLBody
        .To = GetSurveyEmailDistList
        .CC = GetSurveyEmailCCList & "[EMAIL]Remote@legacydirectional.com[/EMAIL]"
                .Subject = ESubject
       
    'Attach files. The var "i" should start at the first row of file names, and go to the last row
                                 
        For i = row + 2 To row + 15
        If cells(i, col).Value = "Yes" Then
        .Attachments.Add (Directory & cells(i, col + 2).Value)
        End If
        Next i

    End With

Sometimes it looks for a file that did not get generated but I would like it to continue and just give a message to correct it for next time.
It is a runtime error saying cant find file verify path and name are correct.

Is this possible

 

[Domenic]

Okay, so this will display a message when the cell is blank or when the file doesn't exist . . .

        Dim currentFilename As String

        For i = Row + 2 To Row + 15
            If Cells(i, col).Value = "Yes" Then
                If Len(Cells(i, col + 2)) > 0 Then
                    currentFilename = Directory & Cells(i, col + 2).Value
                    If Len(Dir(currentFilename, vbNormal)) > 0 Then
                        .Attachments.Add currentFilename
                    Else
                        MsgBox "'" & currentFilename & "' does not exist!", vbExclamation
                    End If
                Else
                    MsgBox "Filename not found!", vbExclamation
                End If
            End If
        Next i

 

[bdouglas1011]

Okay, so this will display a message when the cell is blank or when the file doesn't exist . . .

        Dim currentFilename As String

        For i = Row + 2 To Row + 15
            If Cells(i, col).Value = "Yes" Then
                If Len(Cells(i, col + 2)) > 0 Then
                    currentFilename = Directory & Cells(i, col + 2).Value
                    If Len(Dir(currentFilename, vbNormal)) > 0 Then
                        .Attachments.Add currentFilename
                    Else
                        MsgBox "'" & currentFilename & "' does not exist!", vbExclamation
                    End If
                Else
                    MsgBox "Filename not found!", vbExclamation
                End If
            End If
        Next i

perfect thank you

 

[Joe4]

Note when marking posts as a "Solution", you want to mark the actual post that originally contains the solution (not you own post acknowledging to someone that their post works).
You would only mark you own post if you came up with the working solution and posted it here.

I have updated it for you.

 

[Domenic]

You're very welcome, cheers!