All-

I am using the below code to export an image of a range. It works perfectly, except for the fact that it comes out as a picture of my range over top of a chart of the data in the range.

How do I do get this to only export the picture of the range?

Any help would be greatly appreciated!


Code:

Sub RangePic()

Worksheets("NewRepScoring").Range("A1:Q17").CopyPicture xlScreen, xlBitmap

Application.DisplayAlerts = False
Set oCht = Charts.Add
With oCht
.Paste
.Export Filename:="\\portal\DavWWWRoot\cwie\sales\business\QA%20Pages\RepDashboard.png", Filtername:="PNG"
.Delete
End With
End Sub