[COLOR=blue]Private Sub[/COLOR] Workbook_SheetChange([COLOR=blue]ByVal[/COLOR] Sh [COLOR=blue]As Object[/COLOR], [COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]For Each[/COLOR] Sht [COLOR=blue]In[/COLOR] ActiveWorkbook.Worksheets
[COLOR=blue]If[/COLOR] IsDate(Sht.Range("B1")) [COLOR=blue]Then[/COLOR]
[COLOR=blue]On Error Resume Next[/COLOR]
Sht.Name = Format(Sht.Range("B1"), "dd - mm - yyyy")
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR] Sht
[COLOR=blue]End Sub[/COLOR]