Renaming worksheets

  • Thread starter Thread starter andreashermle
  • Start date Start date
A

andreashermle

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
 
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
Click to expand...

Something like:

Sub Andrea()
Sheets.Add after:=Sheets("Sheet3")
s = Array("Original", "Graphics", "SAP", "N0Match")
For i = 1 To 4
Sheets(i).Name = s(i - 1)
Next
End Sub
 
Something like:

Sub Andrea()
Sheets.Add after:=Sheets("Sheet3")
s = Array("Original", "Graphics", "SAP", "N0Match")
For i = 1 To 4
    Sheets(i).Name = s(i - 1)
Next
End Sub
Click to expand...

Hi James,

great job. Exactly what I wanted. Thank you very much for your
professional help.

Regards, Andreas
 
Back
Top