Rename sheets based on the initial number of Characters

[Miguelluis]

Hi,

I've been searching for a Macro that enables me to rename various sheets in my workbook based on the initial few Characters and rename them to specific names. for example the sheets have the following names:
BBBO000102_abcd017_CancelledTrades2018-04-12-05-18-54
BBBO000102_abcd18_RedemptionAfterSale_Y2018-04-12-03-52-17
BBBO000102_abcf022_ClientCategory_CashInt_2018-04-12-07-12-22
ACBB000102BankAcHiRskCtryD201804120226
ACBB0001023rdPartyPayerD201804120226

The names in red are always the same, I wondered if anyone knows how to create a macro that would rename the above, every time (considering the black font changes daily) to the following:

CancelledTrades
RedemptionAfterSale
ClientCategoryCashInt
BankAcHiRskCtry
3rdPartyPayer

Thanks in advance
Miguel

 

[Miguelluis]

Thank you, worked a treat!

For Each thisSheet In ActiveWorkbook.Sheets