Dear Experts:

I would like to rename the worksheet name tabs of the currently active
workbook as follows, using VBA

Original (Sheet 1)
Graphics (Sheet 2)
SAP (Sheet 3)
NoMatch (Sheet 4). This sheet has first to be created / inserted.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas