change table name based on a table column and another cell

[chips]

Hello,
I copied a worksheet and this has named all tables incorrectly is there a way to automatically change the name of all tables in a worksheet?

I have 28 tables for each day of the week

each table has 4 columns:

Index, code, shift, (and names of the days eg table 1 MON1 table 2 TUE2 etc)

Ive typed the department name in a1 called ANAES

Is it possible to change all of the tables in the active worksheet to correspond with the dept name and the day of the week found in column 4?
so the end result is
eg wk1
table 1 = tabANAESMON1
table2 =tabANAESTUE1
etc for all of the rest of the days of the week

then for the next week change the names to
eg wk2
Table renamed to =tabANAESMON2
tabTUES2
etc

and continue for the remaining tables
wk3
tabANAESMON3

wk 4
tabANAESMON4

thank you for any help you can provide

 

[Fluff]

How about

Sub Chips()
   Dim Tbl As ListObject
   
   For Each Tbl In ActiveSheet.ListObjects
      Tbl.Name = "Tab" & Range("A1").Value & Tbl.ListColumns(4).Name
   Next Tbl
End Sub

 

[chips]

How about

Sub Chips()
   Dim Tbl As ListObject
  
   For Each Tbl In ActiveSheet.ListObjects
      Tbl.Name = "Tab" & Range("A1").Value & Tbl.ListColumns(4).Name
   Next Tbl
End Sub

OMG thank you so much after hours of trying to figure this out myself you came along and rescued my night! thank you! i can t believe the wonderful help that is offered here on this board . thank you

 

[Fluff]

Glad to help & thanks for the feedback.