Sub pick_today()
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
   If ws.Name = Format(Now, "dd.mm.yy") Then
     ws.Select
   End If
  Next
End Sub

You could place the code into a workbook_open event if you chose to.

Private Sub Workbook_Open()
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
   If ws.Name = Format(Now, "dd.mm.yy") Then
     ws.Select
   End If
  Next
End Sub

Gord Dibben  MS Excel MVP

Another option based on Gord's code:

Private Sub Workbook_Open()
Dim ws As Worksheet
set ws = nothing
on error resume next
set ws = worksheets(Format(Date, "dd.mm.yy"))  'I like date, Gord likes Now!
on error goto 0
if ws is nothing then
  beep 'no sheet by that name
else
  application.goto ws.range("a1"), scroll:=true
end if
End Sub

ps.  If you use Gord's code, you may want to add:
Exit For
after the
ws.select
line

There's no reason to keep looking.