How to Delete Multiple Sheets for other Workbooks

[jawaharprm]

Hi,
I created a macro to consolidate Multiple sheets into to one sheet its is working fine.

But my doubt is how to delete multiple sheets expect one sheet named ("Price_Update_sheet") and
I need to fill down a formula till last column.

Pls help on same macro file enclosed i wrote this but not working.

 Set s1 = Sheets("Price_Update_sheet")
 lr = [Sheet1].Cells(Rows.Count, 1).End(xlUp).Row
    Sheet1.Activate
    Range("AA2").FormulaR1C1 = "=IF(RC[-8]<>"""",(RC[-8]-RC[-15])/RC[-15],"""")"
    Range("AA2:AA" & lr).FillDown

Thanks
Jawahar

 

[Marc L]

Hi, as your attachment does not match your 'explaination' so well elaborate your need in order all is crystal clear, nothin' to guess ...​

​