JayDe;565631 Wrote:
'Not working
RappWb.Worksheets("Rapport").Range(Cells(2, 1), Cells(lastline - 1,
8)).Copy
MalWb.Worksheets("Resultat").Cells(7, 1)
End Sub
Try:
With RappWb.Worksheets("Rapport")
Range(.Cells(2, 1), .Cells(lastline - 1, 8)).Copy
MalWb.Worksheets("Resultat").Cells(7, 1)
End With


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=156125

Microsoft Office Help