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 ?