A suggested way to do it in
http://www.excelfox.com/forum/f13/delete-worksheets-without-loop-515/
Here's a slightly modified version of the same
Sub kTest()
Dim var As Variant
With Application
var = .Transpose(.Evaluate("Row(2:" & Sheets.Count & ")"))
.DisplayAlerts = 0
Hi Guys,
Challenge is to Delete all Sheets Except one without any loop and mapping
table.
Keep Excelling
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED
