Copy Cell text to Tab(sheet) Name

[bradjedis]

Greetings,

I have searched, but cannot seem to find exactly what I am needing.

Situation: I am copying sheets from Many files into One Workbook. After doing so, I would like to run a macro to grab the data in Q6 and rename the Sheet, I would like this to cycle thru Each Sheet in the workbook.


Regards,
Brad

[HansV]

Run the following macro:

Code: Select all

Sub RenameSheets()
    Dim wsh As Worksheet
    On Error Resume Next
    For Each wsh In Worksheets
        wsh.Name = wsh.Range("Q6").Value
    Next wsh
End Sub

[bradjedis]

THanks! that worked great