delete calc sheets from macro

I have a situation where I am trying to delete all but the first three sheets from a macro. I have been googleing and trying for a few days now, but can’t get it to work. Can you let me know now if this is possible and if it is possible how I would go about it.

Thanks