Ændre dato i celle når anden celleværdi ændres

Hvis jeg forstår dit spørgsmål rigtigt, så er det noget i denne retning, som du ønsker:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$Q$2" Then
    Range("$Q$3").Select
    Selection.NumberFormat = "dd/mmmm/yyyy"
    End If
End Sub

Det virker helt ikke efter hensigten.
Jeg har lagt makroen i Ark1, hvor jeg ændre celle Q2. Der sker ikke noget i Q3!

Har du en dato stående i et andet format i Q3, og hvor du så vil have ændret datoformatet, hvis der ændres i Q2? Det er dette, som den indsatte VBA-kode gør. Eller vil du have sat en dato ind i Q3 i det angivne format? Jeg er ikke helt sikker på, at jeg forstår, hvad du vil. Måske kan du fortælle, hvad formålet er?

Ups, ja man få jo svar som man spørger..
Jeg vil gerne have indsat dags dato i Q3

Jeg har prøvet at ændre dit forslag.
Jeg har lidt problemer med formatet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$Q$2" Then
    Range("$Q$3") = Now(Format("dd-mmmm-yyyy"))
    End If
End Sub

Den virker hvis jeg fjerner Format("dd-mmmm-yyyy"), men så kommer både dato og klokkeslet. Jeg skal kun bruge dato.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$Q$2" Then
    Range("$Q$3").Value = Format(Date, "dd/mmmm/yyyy")
    End If
End Sub

Det virker - Smid et svar!

Et svar ..