[Excel] Datum invoegen door Macro

OKé,

Ik ben bezig met een sheet waarbij een aantal gegevens vanzelf ingevoerd moeten worden door deze informatie uit de pc te plukken.
Nu heb ik het al voor elkaar dat hij de gebruikersnaam automatisch toevoegd.

Nu wil ik dat hij ook de Hyperlinks verwijdert en de Datum toevoegd op een bepaalde cel.
het volgende staat in de Macro:

Private Sub Workbook_Open()
If IsEmpty(Range("D62")) Then
Sheets("sheet1").Range("D62").Value = Application.UserName
End If
End Sub

Sub LinksDelete()
    Cells.Hyperlinks.Delete
End Sub

Sub DateAdd()
If IsEmpty(Range("D63")) Then
Sheets("sheet1").Range("D63").Value = TODAY()
End If
End Sub

Ziet iemand waarom het neit werkt?

Zou heel dankbaar zijn

[Marcade]

Heu .. omdat VB niet zoiets kent als TODAY() .. AFAIK? Kan je geen gebruik maken van TIME en DATE ?

Marcade schreef:

Heu .. omdat VB niet zoiets kent als TODAY() .. AFAIK? Kan je geen gebruik maken van TIME en DATE ?

helaas.. dat doeit ie ook niet.. ik ben al niet zo'n str me vb...

[Marcade]

lullow schreef:

helaas.. dat doeit ie ook niet.. ik ben al niet zo'n str me vb...

Dan doe je toch iets raars.

Private Sub Workbook_Open()
If IsEmpty(Range("A1")) Then
Sheets("sheet1").Range("A1").Value = Application.UserName
End If

If IsEmpty(Range("A2")) Then
Sheets("sheet1").Range("A2").Value = DATE
End If
End Sub

Dit geeft bij mij netjes de gebruiker en de datum.

Oké dit werkt nu,
zag dat de subjes niet goed stonden..
Maar.. nu een andere vraag die ik niet kan vinden.
Ik heb 2 cellen.. 1 voornaam 1 achternaam
Dit wil ik samenvoegen tot 1 (nieuwe) Cel
Maar van de achternaam (B4) mogen alleen de eerste 5 letters en van de voornaam(B5) de eerste 3 letters worden overgenomen. is hier ook een script voor?

Oké toch na een hoop zoeken heb ik het gevonden

=LEFT(B5;5)&LEFT(B4;3)