How to extend range of tab in internet explorer

Hi all,

i have given below vba code to close the internet explorer tabs by retaining the first tab.

Below code is working fine till if 4 or 5 tabs available. If there are more than 6 and above then i am getting "run time error 91".

There is only one following requirement that i need to amend in this macro,

a) Macro is working fine only when 5 tabs available , I want to make it unlimited to close as many tabs available retaining the first one. or say upto 30 tabs.

HTML Code: 

would expect some help here.

Frankly, I am not sure the problem is in code logic... I use something similar to close some explorer windows... and used to get errors too...
If the error is a logic issue, then some tabs may not close, but as a start I would put "On Error Resume Next" just before your For lCtr2 loop, and after it, On Error Goto 0.
It may or may not solve it, but worth a try? I am assuming here, that the problem happens in that loop... if it is in the previous loop, same thing may apply.