Hi folks.

I have generated a template sheet where user adds the information in cell A1. After that he/she presses a command button and the macro copy the determined selection and adds a new sheet for it. The problem is that the macro doesnt copy the picture to the new sheet.

Additional information, the user can choose from two different pictures before copying the the sheet.

Could somebody help me ? Iam not so familiar with macros.

Here is my code:

Sub Uusi_valilehti()

Sheets("POHJA").Select
Range("A1:O3").Select
Selection.Copy
Sheets.Add.Name = Range("A1")
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rows("1:3").RowHeight = 166.5

Sheets("POHJA").Select
Range("A1:N1").ClearContents


End Sub

Thank you