type mismatch when deleting rows

[bleeet]

Hi guys I am trying to figure out why I am getting a type mismatch when deleting rows past a certain number.

Well I am not sure if this is because its a large number of rows but here is the code I use.

With Worksheets("PWPCP")
Rows("6:" & .UsedRange.Count).Delete
End With

I made this to delete all the data in rows 6 and below but its giving me a type mismatch error and I am not sure how to fix this.

thanks

 

[JoeMo]

.UsedRange.Count returns the total cell count for the used range, not the row count. Try:

.UsedRange.Rows.Count

 

[Joe4]

Because you are not counting all the rows, but rather all the cells (which probably is more than the number of possible rows on the sheet!).
Also, I think you need a period in front of "Rows".
Try:

[COLOR=#333333]With Worksheets("PWPCP")[/COLOR]
[COLOR=#333333]    .Rows("6:" & .UsedRange.Rows.Count).Delete[/COLOR]
[COLOR=#333333]End With[/COLOR]