Name ws with date based on cell

[psrs0810]

I have 8 ws that I want to name based on the date in a cell range.
these 8 ws would all start with the name "ChargeDetail" and I want to append from ws "Directions" cell O1 with it's date, then the next ws would be appended with the date in cell O2, etc.

Thanks

 

[wideboydixon]

Public Sub RenameSheets()

Dim thisSheet As Worksheet
Dim thisRow As Long

thisRow = 1
For Each thisSheet In Worksheets
    If thisSheet.Name <> "Directions" Then
        thisSheet.Name = "ChargeDetail" & Worksheets("Directions").Cells(thisRow, "O").Value
        thisRow = thisRow + 1
    End If
Next thisSheet

End Sub

WBD