Right-click on the spreadsheet tab, select View Code and paste this in:-
Private Sub Worksheet_Activate()
ActiveSheet.Name = Range("A1").Value
End Sub
To test this I put the date in cell B2 and this formula into A1:-
=TEXT(DAY(B1),"d")&IF(OR(WEEKDAY(B1)=7,WEEKDAY(B1) =1),"!","")
"Mikus" wrote:
Is it possible to change tab names dynamicaly ? For example i have 31 tab (1
for each day of the month)
These tabs are named - 1,2,3 e.t.c
Is it possible to define rule that would ad "!" to day which is weekend day.
In other words is it possible to dynamicly change tab name depending from
value of cell ?
If this is possbile how do i do this ?
|