Function Range_to_Picture(rng)
    Dim sName As String, wsTmpSh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With rng
       [color=red] .CopyPicture[/color]
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        sName = ActiveWorkbook.FullName & "_" & ActiveSheet.Name & "_Range"
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=sName & ".gif", FilterName:="GIF"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    Range_to_Picture = sName & ".gif"

End Function