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

Range("B290").Select
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"
Sheets.Add
Range("A1").Select
ActiveSheet.Pictures.Paste.Select
ActiveWindow.DisplayGridlines = False
ActiveWorkbook.Save


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

'ActiveWindow.Close

End Sub