Code is Workbook Specific?

[Anne Troy]

Why would this code work perfectly in one workbook and not at all in another? I changed the ranges to add to the body to be named ranges, but even after reverting back to cell references, I get NO message body. The funny thing is that on the code below, I could not seem to get it to add an Outlook signature. However, when I run the code in workbook 2, it creates NO message body but DOES add my Outlook signature.

Bizarro. Any ideas? Thanks!

Sub SendMeOut()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim strbody As String


    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
          Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = Range("'Dashboard'!D3").Text
                .CC = Range("'Dashboard'!D4").Text & ";" & Range("'Dashboard'!D5").Text & Range("progemail").Text
                .BCC = Range("'Dashboard'!D6").Text
                
                .Subject = "Harbortouch POS Order Update: " & Range("merchantname").Text & " " & Range("merchantmid").Text
                .Body = Range("'Email Text'!$C$16").Text & Chr(10) & Chr(10) & _
                Range("'Email Text'!$C$18").Text & Chr(10) & Chr(10) & _
                Range("'Email Text'!$C$20").Text & Chr(10) & Chr(10) & _
                Range("'Email Text'!$C$21").Text & Chr(10) & Chr(10) & _
                Range("'Email Text'!$C$22").Text & Chr(10) & Chr(10) & _
                Range("'Email Text'!$C$23").Text & Chr(10) & Chr(10)
                
                .Display  'Or use Send

End With
            On Error GoTo 0
  Set OutMail = Nothing
        
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 

[Andrew Poulsom]

What happens if you remove your error traps?

 

[Anne Troy]

Thanks, Andrew.

You know, I'm NOT a coder. Really, I'm not. But somehow I got this job here at this company, thinking I'm gonna be programming their POS systems. Lo and behold, it's a new division so everything is changing every day and I'm making little Excel applications (they're amazed by hyperlink buttons), reports and such (easy to blow them away with buttons and colors), and find myself developing more and more after all these years.

Now, you've taught me something I should have known. Remove the error trap and you find the error. Duh. I've known it from before, but forgot.

I found the issue, but don't know why it was an issue before I used named ranges because it made me find the line that errored and I found a bad named range (even tho it wouldn't run right with regular cell refs either, who knows?).

But I'm not into what was wrong so much as I'm into making it right.

Thanks a ton! It's workin'!