H
hnyb1
Hi, I've been using a macro to automatically send Excel worksheets to
specific email addresses on quite a few files I have set up. I just added
this macro to a spreadsheet that has some merged cells that are used for
notes. I realized after I began using the macro that any text typed into the
merged cell beyond 250 characters is deleted when the worksheet is emailed
using the macro. I don't believe this is a problem with the code, but I am
including it below to make sure. Is there any work around for this?
Sub Mail_ActiveSheet_PR()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "yymmdd")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\" & Sheets("Dom. Parts Order Req").Range("D11").Value &
" Approved.xls"
.SendMail "(e-mail address removed)", Sheets("Dom. Parts Order
Req").Range("D11").Value
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub
Thanks,
Holly
specific email addresses on quite a few files I have set up. I just added
this macro to a spreadsheet that has some merged cells that are used for
notes. I realized after I began using the macro that any text typed into the
merged cell beyond 250 characters is deleted when the worksheet is emailed
using the macro. I don't believe this is a problem with the code, but I am
including it below to make sure. Is there any work around for this?
Sub Mail_ActiveSheet_PR()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "yymmdd")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\" & Sheets("Dom. Parts Order Req").Range("D11").Value &
" Approved.xls"
.SendMail "(e-mail address removed)", Sheets("Dom. Parts Order
Req").Range("D11").Value
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub
Thanks,
Holly