kopiere celle med format

Rem Åbn V-filen
        .Workbooks.Open Vsti + kid
        Cells(ræk, 5).copy .Sheets(1).Cells(4, 5)  'Fra DATAFIL overføres Kolonne E & F til v-fil
      Cells(ræk, 6).Copy  .Sheets(1).Cells(5, 5)
        .Application.DisplayAlerts = False
        .ActiveWorkbook.Save
    End With

der sker bare intet

hvad gør jeg forkert

LN