Hello all,

I am trying to copy a workbook to another; and to keep the formatting with pictures (shares).

I had :

SourceWkBook.Sheets(Trim(SheetName)).Range(StringRange).Copy Destination:=TargetWkBook.Sheets(Trim(SheetName)).Range("A1")

but that didnt work; so I tried:

SourceWkBook.Sheets(Trim(SheetName)).Range(StringRange).Copy
TargetWkBook.Sheets(Trim(SheetName)).Range("A1").PasteSpecial xlPasteColumnWidths
TargetWkBook.Sheets(Trim(SheetName)).Range("A1").PasteSpecial xlPasteValues, , False, False
TargetWkBook.Sheets(Trim(SheetName)).Range("A1").PasteSpecial xlPasteFormats, , False, False


These copied the Values and Column Foramtting ,but dont work for copying the pictures.