Hello and let me say I am sorry if there are variations of my question posted but I could not find any and I am green.
I need help please
I would like to get a code to do the following pls.
pick the value in cell a1
copy range b2:s90 in that same worksheet
copy as picture
paste as picture in a different yet an existing workbook
create new worksheet
name new the work sheet as the value from a1 from the 1st worksheet

please advise here is what I have so far

Sub Snapshot()

If Worksheets("Report").Cells(2, 2).Value <> "CarDEALER" Then
Worksheets("Report").Cells(2, 2).Value = "CarDEALER"
End If

Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Application.CommandBars("Task Pane").Visible = False
Workbooks.Open Filename:= _
"C:\Documents and Settings\XXXX\My Documents\Something\5-18-2010.xls"
ActiveWindow.DisplayGridlines = False

ActiveSheet.Name = InputBox("Please type the name for this sheet")
Exit Sub
MsgBox "That name either already exists or is not allowed. Please retry"
GoTo reinput


End Sub