Posts by rollis13

    Have a try changing these 4 lines of code:

    1. '...
    2. Set rng = sh.Cells(cell.Row, 6).Range("C1:D1") '<= changed
    3. If cell.Value Like "?*@?*.?*" And _
    4. Application.WorksheetFunction.CountA(rng) < 2 Then '<= changed
    5. Set OutMail = OutApp.CreateItem(0)
    6. With OutMail
    7. .To = sh.Cells(cell.Row, 6).Value
    8. .Subject = WS.Range("B1").Value '<= changed
    9. .Body = WS.Range("B3").Value '<= changed
    10. '...

    Just to add missing cross-post link: LINK

    You didn't adjust your path correctly, you are missing the last separator.

    Also added missing image error check.

    Have a try with this macro, all you have to do is adapt image path and the dimension of the image in the header.

    I also added a macro for quick deleting for debugging purpose. Be aware, no error checking.

    Have a try with this cutdown version of your macro:

    Have a try with this (ugly) workaround. All it does is to continue with a new column:

    That's because your column A has formulas down to A10000 (or are formatted or other).

    Done that, now I'm guessing, I think you should also change your code like this:

    1. Dim lRow As Long
    2. lRow = Cells(Rows.Count, 1).End(xlUp).Row
    3. Range("E" & lRow).Select '<= changed

    It kept failing only because there is a typo in that line. Change those few lines like this:

    Could be cut down to:

    Hi to all.

    Probably will also need to change this line:

    1. from:
    2. ActiveWorkbook.SaveAs Filename:=strFile
    3. to:
    4. ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=53

    You also have a typo here:

    1. MsgBox "Hello Rob, " & cbCrLf _
    2. should be:
    3. MsgBox "Hello Rob, " & vbCrLf _

    Why aren't you using Option Explicit ?