Team

Another issue I thought about which ties into the no Data Filter issue.

Assuming there is no data, and the chart is not created, it then creates a secondary issue regarding the ChartObject(?) assignment.

I tried the following logic to get around it, but as with all things lately, Excel doesn't like it.. lol..

For Each ChartObjects In shChar
If Not ChartObjects.count < 3 Then
With shChar.ChartObjects(3)
.Activate
.Name = myChar
.Left = Range("B38").Left
.Top = Range("B38").Top
End With
Else
With shChar.ChartObjects(2)
.Activate
.Name = myChar
.Left = Range("B20").Left
.Top = Range("B20").Top
End With
End If
Next ChartObjects

TIA
Mark.

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

This is another one to cross off.

I decided rather than keeping each chart active, I snapshot them and copied them to another sheet as a picture.

With myPDsht.ChartObjects(1).Chart
.ChartArea.copy
shChar.Range("B38").PasteSpecial xlPasteValues
End With

So much less anxiety.

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)