Microsoft Office Forums - View Single Post - [Solved] macro to automatically date sheet tab

gmayor · 05-24-2015, 05:56 AM

Your workbook is password protected!

Maybe something like

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("B5:B8")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    If IsDate(Range("B5")) Then
        Sheet3.Name = Format(Range("B5"), "dd-mm-yy")
    End If
    If IsDate(Range("B6")) Then
        Sheet4.Name = Format(Range("B6"), "dd-mm-yy")
    End If
    If IsDate(Range("B7")) Then
        Sheet5.Name = Format(Range("B7"), "dd-mm-yy")
    End If
    If IsDate(Range("B8")) Then
        Sheet6.Name = Format(Range("B8"), "dd-mm-yy")
    End If
End Sub

in the Sheet 2 code. This will update all the sheet names requested when one of the dates is changed.