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


Thank

--
Message posted from http://www.ExcelForum.com

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/

Hi

Rows("1:" & Lastrow).Select

--
Best Regards
Leo Heuser

Followup to newsgroup only please.

"dabith " skrev i en meddelelse
...
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/