Simpel Macro driller

Er der en der kan gennemskue dette?

Jeg har en simpel macro der navngiver et ark efter en bestemt celle E1. Den macro vil jeg gerne ændre så den benytter en anden celle B26.

Virker:
Dim sheetrn As Worksheet
    Set sheetrn = ActiveWorkbook.ActiveSheet
    sheetrn.Name = Range("E1").Value

Virker ikke:
Dim sheetrn As Worksheet
    Set sheetrn = ActiveWorkbook.ActiveSheet
    sheetrn.Name = Range("B26").Value

Celle E1 indeholder en tekststreng (et navn), celle B26 indeholder en dato (og er formatteret derefter).Det er såvidt jeg kan se de eneste forskelle på de to celler.

Nogen gode bud?

Mvh
Kenneth