Hi,

Try this :

Modify sheet name and range address at your convenient.

'--------------------------------------------
Sub Save_Range_On_Desktop()

Application.ScreenUpdating = False
With Sheets("Sheet1")
.Activate
Workbooks.Add
.Range("A2:H31").CopyPicture
End With
With ActiveSheet
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.ChartArea.Border.LineStyle = 0
End With
With .ChartObjects(1)
.Top = 0
.Left = 0
.Chart.Export "C:\Users\DM\Desktop\Its_Name.bmp", "bmp"
End With
.Parent.Close False
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------

"Maze" a écrit dans le message de groupe de discussion :
...
All:

Need assistance on macro code to do the following:

From a command button - copy a range from a worksheet (A1:D9), then save
selection as a bitmap (picture) on the desktop.

Thank you in advance.