Rename Multiple Worksheets in a Workbook

[vik2slick]

Hi, I am trying to rename multiple worksheets with the left 6 characters in cell A3. Can anyone suggest a VBA macro that would rename all worksheets in one run. Thanks in advance!

 

[Michael M]

Maybe this

Sub MM1()
Dim n As Integer, r As String
For n = 1 To Sheets.Count
    If Worksheets(n).Range("A3").Value <> "" Then
        r = Worksheets(n).Range("A3").Value
        Sheets(n).Name = Left(r, 6)
    End If
Next n
End Sub

 

[vik2slick]

Thank you!! It worked.