Range is nothing
 

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(xl CellTypeVisible)
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)

Range is nothing
 

This is not correct

A6:f26

A6:F26 is working



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"ToddEZ" wrote in message ...
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(xl CellTypeVisible)
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)

Range is nothing
 

It seems to be working now. However, every other time I run the marcro it
seems to take much longer. without posting a bunch of code, do you have any
ideas what would cause this type of error?

"Ron de Bruin" wrote:

This is not correct

A6:f26

A6:F26 is working



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"ToddEZ" wrote in message ...
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(xl CellTypeVisible)
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)

Range is nothing
 

That can't be the problem. I make many of these upper/lower case typing
"errors" and it doesn't fail for me.



Ron de Bruin wrote:

This is not correct

A6:f26

A6:F26 is working

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

"ToddEZ" wrote in message ...
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(xl CellTypeVisible)
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)


--

Dave Peterson

Range is nothing
 

Another guess, but it's based on imcomplete code...

You can only activate a worksheet that's in the active workbook.

with wb1
.activate
.sheets("template").activate
.sheets("template").range("a1").select
end with

And maybe...

Set rngh _
= wb1.Sheets("Template").Range("A6:f26").SpecialCell s(xlCellTypeVisible)




ToddEZ wrote:

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(xl CellTypeVisible)
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)


--

Dave Peterson

Range is nothing
 

mmm

Strange

A6:f26

Yesterday I not see the : in the code
My eyes I think <g


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dave Peterson" wrote in message ...
That can't be the problem. I make many of these upper/lower case typing
"errors" and it doesn't fail for me.



Ron de Bruin wrote:

This is not correct

A6:f26

A6:F26 is working

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

"ToddEZ" wrote in message ...
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(xl CellTypeVisible)
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)


--

Dave Peterson

Range is nothing
 

Ahhh. Now I feel better.

You may not, but I do <vbg.

Ron de Bruin wrote:

mmm

Strange

A6:f26

Yesterday I not see the : in the code
My eyes I think <g

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

"Dave Peterson" wrote in message ...
That can't be the problem. I make many of these upper/lower case typing
"errors" and it doesn't fail for me.



Ron de Bruin wrote:

This is not correct

A6:f26

A6:F26 is working

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

"ToddEZ" wrote in message ...
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(xl CellTypeVisible)
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)


--

Dave Peterson

--

Dave Peterson