Dim mpStyle As Style

For Each mpStyle In ActiveWorkbook.Styles

If Not mpStyle.BuiltIn Then

mpStyle.Delete
End If
Next mpStyle


--
__________________________________
HTH

Bob

"Nimesh" wrote in message
...
I have received file from other user, it has more than 1500 styles. Many a
times I am not able to apply my style in the file and shows error of Too
many
style.
I tried to remove one by one but it take too long time and I have many
such
files.
Is there any way for multiple selection of styles and than can delete it.