macro to automatically date sheet tab

gmayor · #12 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to fetch data from one sheet to another with complete details and date wise as well	harisjawed86	Excel Programming	1	08-05-2014 09:10 PM
how to automatically copy parts of a record to another sheet?	kmeechan	Excel	1	05-28-2014 02:24 AM
How to copy data automatically to particular sheet?	nicholes	Excel Programming	13	03-12-2014 01:05 AM
How to automatically insert DAY instead of date?	kylera	Word	3	06-28-2012 12:38 PM
copy cell from sheet 2 to sheet 3 macro	slipperyjim	Excel Programming	1	02-18-2010 01:31 AM