Rename multiple workseets based on keyword

Hello!
I wodner if I can search and replace certain keyword in all worksheet tabs?

Lets say I have these tabs:

MODEL1
MODEL2
MODEL3

Can I replace MODEL with SYSTEM ?

Thanks!!!
Dorian

Fantastic - it works seamlessly - thanks a lot!

can you please help me update this wonderful macro to cycle thgrough the names in column A on tab names and save the workbook after each cycle run with the name used to renbame the sheets?

names on tab now: [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 48"]

[tr]

[TD="width: 64"]set1[/TD]

[/tr]

[tr]

[td]

set2

[/td]

[/tr]

[tr]

[td]

set3

[/td]

[/tr]

[tr]

[td]

set4

[/td]

[/tr]

[tr]

[td]

set5

[/td]

[/tr]

[tr]

[td]

set6

[/td]

[/tr]

[tr]

[td]

set7

[/td]

[/tr]

[tr]

[td]

set8

[/td]

[/tr]

[tr]

[td]

set9

[/td]

[/tr]

[tr]

[td]

set10

[/td]

[/tr]

[tr]

[td]

set11

[/td]

[/tr]

[tr]

[td]

set12

[/td]

[/tr]

[tr]

[td]

set13

[/td]

[/tr]

[tr]

[td]

set14

[/td]

[/tr]

[tr]

[td]

set15

[/td]

[/tr]

[tr]

[td]

set16

[/td]

[/tr]

[tr]

[td]

set17

[/td]

[/tr]

[tr]

[td]

set18

[/td]

[/tr]

[tr]

[td]

set19

[/td]

[/tr]

[tr]

[td]

set20

[/td]

[/tr]

[/TABLE]
so it woudl rename all sheest with set1 and save the workbook as set1.xlsx and then go to set2

can it be done?

here is the update file:
[ATTACH]n1212843[/ATTACH]