Rename tabs as cell A2, for every sheet

[sweeneytime]

Hi guys,

I have the below code,renaming each tab as A2 & "Transactions" but on sheet 2 it is still trying to use cell A2 from the sheet 1, I need to pick up A2 from each sheet while active, any suggestions please?

Also do you know how I can start from just the second sheet please?

Thanks,
Alan

Sub Rep()
    
    Dim ProjName As String

     For Each sht In ThisWorkbook.Worksheets
            
            sht.Name = Range("A2") & " Transactions"
     Next sht

End Sub

 

[Jonmo1]

You need to reference the sheet in the code.
simply doing a for each sht loop doesn't make each sheet active during the loop.
And VBA doesn't assume you want to reference the sht in the loop.
Unless otherwise specified, VBA still references whichever sheet is currently active.

sht.Name = sht.Range("A2") & " Transactions"

 

[sweeneytime]

cheers for that, works like a dream. I had tried activesheet.range("A2"), but failed!

 

[Jonmo1]

Glad to help, thanks for the feedback