Replacing sheet names with numbers

[gmittar]

Hi All,

I'm trying to clean up a macro written by my predecessor, and I'm having a tough time figuring out why it's not working, as it should be pretty easy (despite my novice skillset).

Original Macro:
Sub filter_reset_condensed()


Sheets(Array("Bud_Guide_2019_acct_condensed", "Bud_Guide_2019_acct_details")).Select
Sheets("Bud_Guide_2019_acct_condensed").Activate
Range("A6").Select
ActiveCell.FormulaR1C1 = "Select Property"

Sheets("Bud_Guide_2019_acct_condensed").Select


End Sub

I want to replace it with:
Sub filter_reset_condensed()


Sheets(Array(4, 30)).Select
Sheets(4).Activate
Range("A6").Select
ActiveCell.FormulaR1C1 = "Select Property"

Sheets(4).Select


End Sub

I get the error "subscript out of range" with the array line highlighted. Hopefully this is an easy fix that I'm just not seeing.

 

[gmittar]

Makes sense. I guess changed sheet names is high on the list of troubleshooting for these types of macros.

Thanks again.

 

[Fluff]

You're welcome