Kopiere Excel Celle Formater i VBA

[norsemanGrey]

Jeg bruker følgende metode for å kopiere celle-formateringen for en rad med celler nedover i excel arket. (Altså dette står inne i en for-løkke hvor RowInsertIndex inkrementerer). Problemet er at dette ser ut til å fungere kun hvis jeg har sheeten det gjelder for oppe på skjermen. Hvis jeg er på et annet sheet så får jeg feilmelding 1004 (Application defined or object defined error). Er det noe som vet hvorfor dette skjer, eventuelt en annen bedre måte jeg kan gjøre dette på enn Copy/Paste?

 

If RowInsertIndex <> 3 Then

Worksheets(ImportList_Current).Range(Cells(RowInsertIndex - 1, 1), Cells(RowInsertIndex - 1, 50)).Copy
Worksheets(ImportList_Current).Range(Cells(RowInsertIndex, 1), Cells(RowInsertIndex, 50)).PasteSpecial xlPasteFormats

End If