Run-time error '1004' VBA delete rows from an array of sheets

[Js Smith]

Hi all, hope you had a great weekend.
I'm writing another VBA to automate my coworker's manual processes and this I've got a syntax error but the Monday brain isn't working. My first step is to ensure old data is gone before importing new data on a few of the many sheets available.
On sheets "EPIC" and "EPIC_FEAT" I want to delete row 3 to wherever the end of the data is. This is what I've got so far

Sub DeleteRows()
Dim shArr, i As Long, xx As Long

shArr = Array("EPIC", "EPIC_FEAT")
 xx = Range("A3").End(xlDown).Select

For i = LBound(shArr) To UBound(shArr)
  Sheets(shArr(i)).Selection(xx).EntireRow.Delete
Next i
End Sub

I get the Run-time error '1004': Application-defined or object-defined error at

Sheets(shtArr(i)).Selection(xx).EntireRow.Delete

I tried also

Sheets(shtArr(i)).Rows(xx).EntireRow.Delete

. It seems like this code is very close but can figure the issue out..

They don't let me install apps so can't upload a Mini-sheet but headers are on row there are multiple columns; something like below:

Name	Key	Summary
hgfgjh	dsfafsaf	adsfasdfasfdasfd
fghjfhj		asdfasdfsaf
fhjg	dsfasdf	adsfasfd
sfdgdsg		sdfsadf
sdfdsfg		sdfasdf
sdfgdsgf	asfdadsf	asdfsafd
sdfgdsgf		asdfasf
sdfgdsgf	adfadsf	asdffsda
gsdgf		asfdsafd

How would you do this task? Thanks, as always, for helping me learn!

 

[davesexcel]

This should do it.

Dim shArr, i As Long

shArr = Array("EPIC", "EPIC_FEAT")

For i = LBound(shArr) To UBound(shArr)
  With Sheets(shArr(i))
  .Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row).EntireRow.Delete
  End With
Next i

 

[DanteAmor]

Hi @Js Smith:

Please try this:

Sub DeleteRows()
  Dim sh As Variant
  For Each sh In Array("EPIC", "EPIC_FEAT")
    Sheets(sh).Rows("3:" & Rows.Count).Delete
  Next
End Sub

I hope to hear from you soon.
Respectfully
Dante Amor

 

[Js Smith]

Hi @Js Smith:

Please try this:

Sub DeleteRows()
  Dim sh As Variant
  For Each sh In Array("EPIC", "EPIC_FEAT")
    Sheets(sh).Rows("3:" & Rows.Count).Delete
  Next
End Sub

I hope to hear from you soon.
Respectfully
Dante Amor

Perfect! Thanks for straightening me out.