Export a range of cells as a picture in Excel

Hi All

I am trying to export some graphs and range data from an Excel worksheet as Jpeg pictures. I've tried the code below (mostly taken from solutions suggested on various sites).
This works fine for the 3 Chart objects, but for the range of cells (A114:N130) that I want to export as a picture, all it gives me is a bar chart based on the data from the range and inserted as a new worksheet. Also, it displays an Excel warning that the sheet will be deleted when it executes the Chrt,delete code, which I don't want in the final version.
Am I doing something stupid, or is there an easy way to simply export the cells as a picture?
Any help greatly appreciated.

Regards

Terry

Sub ExportSummaryGraphs()

Dim ws As Worksheet
Dim Rng As Range
Dim Chrt As Chart
Dim Pathname As String


    Application.ScreenUpdating = False
    Pathname = ThisWorkbook.Path
    Sheets("SummaryGraphs").Select
    ActiveSheet.Unprotect
    ActiveSheet.ChartObjects("Chart 1051").Chart.Export Pathname & "\Sales Graph.jpg", Filtername:="jpg"
    ActiveSheet.ChartObjects("Chart 1050").Chart.Export Pathname & "\Gross Profit Graph.jpg", Filtername:="jpg"
    ActiveSheet.ChartObjects("Chart 1033").Chart.Export Pathname & "\Net Profit Graph.jpg", Filtername:="jpg"

    Set ws = ActiveSheet
    Set Rng = ws.Range("A114:N130")
    ExportPath = Pathname & "\Summary Table.jpg"
    Set Chrt = ThisWorkbook.Charts.Add
    Rng.CopyPicture xlScreen, xlBitmap

With Chrt
    .Paste
    .Export Filename:=ExportPath, Filtername:="JPG"
End With
    Chrt.Delete
    ActiveSheet.Protect

    Sheets("Main Menu").Select
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub