T
ToddEZ
I have a rather complicated set of macros that creates an html email with a
pdf attachment. However I have one annoying problem with my code. Every
other time I run the macro a range that I try to manipulate "is nothing."
Any ideas why I would only get this error every other time I run the macro?
Here is a bit of my code where the error seems to occur...
WB1.Sheets("Template").Activate
Range("A1").Select
Dim rngh As Range
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
'Only the visible cells in the selection
Set rngh =
Sheets("Template").Range("A6:f26").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If rngh Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected" &
vbNewLine & "please correct and try again.", vbOKOnly
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
pdf attachment. However I have one annoying problem with my code. Every
other time I run the macro a range that I try to manipulate "is nothing."
Any ideas why I would only get this error every other time I run the macro?
Here is a bit of my code where the error seems to occur...
WB1.Sheets("Template").Activate
Range("A1").Select
Dim rngh As Range
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
'Only the visible cells in the selection
Set rngh =
Sheets("Template").Range("A6:f26").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If rngh Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected" &
vbNewLine & "please correct and try again.", vbOKOnly
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)