Error 13 please help

[brujo_ds]

Sorry if these is not the right place and thanks for helping me.

My problem

I have dimension lastcell as an integer or variant I cannot get these to work.

Dim lastcell As Integer
lastcell = Selection.Rows.Count

ActiveCell.Rows(" 1: & lastcell").EntireRow.Select

Thanks for all the posible help

 

[VoG]

Try

Dim lastcell As Long
lastcell = Selection.Rows.Count
Range(ActiveCell, ActiveCell.Offset(lastcell - 1)).EntireRow.Select

 

[xld]

Why not just do Ctrl-A?

 

[brujo_ds]

I solve it!!! But thanks you have to write it like these. I am sorry about the stupid doubt but I am very noob in vba !!!!


ActiveCell.Rows(" 1:" & lastcell).EntireRow.Select

 

[xld]

I solve it!!! But thanks you have to write it like these. I am sorry about the stupid doubt but I am very noob in vba !!!!


ActiveCell.Rows(" 1:" & lastcell).EntireRow.Select

You don't need the Rows property AND the EntireRow property

ActiveCell.Rows(" 1:" & lastcell).Select

 

[brujo_ds]

Thanks another time you are right !!!! I will change it tomorrow morning. The shorter the code is the better and I have that argument a lot of times!! So thanks again.