Error in Automating Excel

[Srinivas Chundi]

I have a module in my excel spreadsheet that has following code in it.

Sub GetPicture
Dim xlsheet as Excel.Worksheet
Set xlsheet = New Excel.Worksheet
....
....
Set xlsheet = nothing

End Sub

The objective is to create a new temporary worksheet within the Sub and
destroy it at the end of sub so that the other worksheets do not have to be
disutrbed. When I execute the first statement I get the following error.

Error num 430 Class does not support automation or does not support expected
interface.
I tried the statement Set xlsheet = CreateObject("Excel.Worksheet"), but
that fails too with the message "Acitvex object cannot create object"
Please help
-- M

 

[Bill James]

Try:

Sub GetPicture()
Dim x As Excel.Worksheet
Dim xlsheet As New Excel.Worksheet '<-- change here

'...

Set xlsheet = Nothing

End Sub