Method Range object global failed

[balumail75]

Hi all,

I created the following VBA code to test for updating excel data to PowerPoint chart. I got the errormessage as "Method Range object global failed". I used union method to combine two cells. Please help in this regard.

Sub cp()
Dim objshape As Chart
Dim objXL As Excel.Application
Dim slide1range As Range

Set objXL = GetObject(, "Excel.Application")
objXL.Workbooks(1).Worksheets("networking").Activate

Set slide1range = objXL.Union(Range("c11"), Range("e11")) -->''Got error message in this line
slide1range.Select

objXL.Range("c14").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
If ActiveWindow.Selection.ShapeRange(1).HasChart Then
Set objshape = ActiveWindow.Selection.ShapeRange(1).Chart
objshape.ChartData.Activate
objXL.Range("B2").Select
objXL.Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
objshape.ChartData.Workbook.Close
End If
Set objXL = Nothing
Set chartrange = Nothing
Set objshape = Nothing
End Sub

[Paul_Hossler]

Just guessing ...



objXL.Union(objXL.Workbooks(1).Worksheets("networking").Range("c11"), objXL.Workbooks(1).Worksheets("networking"). Range("e11"))


Paul

[balumail75]

Hi Paul,

Yes it works. Thanks for your help.

Regards,
Balu.