Hello Everybody,

I have a macro created below that only delete selected worksheets in a
workbook. But I keep recieve error massage . May I know where goes wrong ??
Can anyone help ??

Thanks in advance !!!

Application.DisplayAlerts = False
Sheets("Table 1").Delete
Sheets("Table 2").Delete
Sheets("Table 3").Delete
Sheets("Table 4").Delete
Sheets(Activesheets).Delete
Application.DisplayAlerts = True