For Each mpStyle In ActiveWorkbook.Styles
If Not mpStyle.BuiltIn Then
mpStyle.Delete
End If
Next mpStyle
--
__________________________________
HTH
Bob
"Nimesh" <Nim...@discussions.microsoft.com> wrote in message
news:6DECD830-D2DD-481F...@microsoft.com...
"Nimesh" <Nim...@discussions.microsoft.com>
wrote in message