Hi Dabith ,
Change:
Rows("1:Lastrow")
to:
Rows("1:" & LastRow).
Also, you are missing an End With and there is no need to select your range.
Therefore, your code could read :
With ActiveSheet
LastRow = (.UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1)
End With
Rows("1:" & LastRow).Copy
---
Regards,
Norman
"dabith " wrote in message
...
Hey all
another question
how do I use the Lastrow variable in the Rows argument???
Dim Lastrow As Long
With ActiveSheet
Lastrow = .UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1
Rows("1:Lastrow").Select
Selection.Copy
Thanks
---
Message posted from http://www.ExcelForum.com/