kopiere format makro

Hej er der nogen der kan hjælpe mig.

Jeg skal kopiere formater og indhold fra en fil til en anden

får ikke formatet med kun indhold.

Private Sub opdaterVfil(kid, ræk)
Dim xls
    Set xls = CreateObject("Excel.application")
    With xls
   
Rem Åbn V-filen
        .Workbooks.Open vsti + kid
        .Sheets(1).Unprotect Password:="*****"



.Sheets(1).Cells(32, 3) = Cells(ræk, 4) ' overfører koncept skiver fra kolonne 4 og  sætter ind i C32

Det er i 2010 og xlsm filer

Laila