Getting macro to reference current sheet rather than sheet name

[markman235]

Hi everyone,

I have a macro that creates a new tab every time it runs. I have another macro to later delete that new tab, but I can't get it to reference the active sheet rather than the sheet name.

Here is the Macro that I have by using the record macro function. The current sheet on here is "Sheet5", but I just need it to reference the active sheet.

Cells.Select
Cells.EntireColumn.AutoFit
Rows("1:1").Select
Selection.AutoFilter
Range("B5").Select
Sheets("Sheet5").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Macro paste").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Summary").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Vendors").Select
ActiveWindow.SelectedSheets.Visible = False
Range("B2").Select
End Sub

You guys are the best!!

Mark

 

[James006]

Hi,
To answer your question, you can use

ActiveSheet.Delete

As a side comment, you should get rid of all your "Select" instructions ...

 

[markman235]

Hi,
To answer your question, you can use

ActiveSheet.Delete

As a side comment, you should get rid of all your "Select" instructions ...

Thank you very much!