Dags dato

Med VBA kan det lade sig gøre, hvordan er din erfaring med det?

Har prøvet det en smule men for rigtig mange år siden. så er en del rusten i VBA.

Så det skal være to forskellige knapper, eller skal skemaet som udgangspunkt bare have en formel til dagsdato - noget a la dette:
A2=if(B2<>"";today();"")

På den måde skal du bare have en knap der laver A2 om til værdi og mailer det.

Løsningen til mail ligger her:
http://www.rondebruin.nl/win/section1.htm det er lidt et spørgsmål om hvilken du vil have (attachment, direkte i mailen, som pdf eller lignende).
Hvis det f.eks. er som pdf behøver du ikke "fryse" A2 da pdf vil gøre det automatisk.

Frysningen er noget a la:
Range("A2").copy
Range("A2").PasteSpecial xlPasteValues

Jeg kan ikke få dato til at virke.

Hvad gør jeg forkert?
Sub Dato()
    Dim Dato
    Dato = Date
        If A2 <> 0 Then
            B2 = Dato
        Else
            B2 = 4
        End If
End Sub

Jeg ville skrive således:
Sub Dato()
    Dim Dato
    Dato = Date
        If Range("A2") = "" Then
            Range("B2").Value = Dato
        Else
            Range("B2") = 4
        End If
End Sub

Det kan være du skal erstatte "" med 0 hvis det passer bedst i dit ark.

Jeg har fået det til at virke, delvis på følgende måde:

Sub SendSpreadSheet()
    Dim Dato
    Dato = Now
        If Range("D16") = "" Then
            Range("B16") = ""
        Else
            Range("B16").Value = Dato
        End If
        If Range("D17") = "" Then
            Range("B17") = ""
        Else
            Range("B17").Value = Dato
        End If
        If Range("D18") = "" Then
            Range("B18") = ""
        Else
            Range("B18").Value = Dato
        End If
        If Range("D19") = "" Then
            Range("B19") = ""
        Else
            Range("B19").Value = Dato
        End If
        If Range("D20") = "" Then
            Range("B20") = ""
        Else
            Range("B20").Value = Dato
        End If
        If Range("D21") = "" Then
            Range("B21") = ""
        Else
            Range("B21").Value = Dato
        End If
        If Range("D22") = "" Then
            Range("B22") = ""
        Else
            Range("B22").Value = Dato
        End If
        If Range("D23") = "" Then
            Range("B23") = ""
        Else
            Range("B23").Value = Dato
        End If
        If Range("D24") = "" Then
            Range("B24") = ""
        Else
            Range("B24").Value = Dato
        End If
Den viser først dato når jeg trykker på en knap. Jeg vil gerne have den til at vise dato uden at jeg skal gøre andet end at forlade felt D16 til D24.
På forhånd tak.