CTRL Z virker ikke

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Undo
    Application.OnUndo "", ""
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , True
        .FormatConditions(1).Interior.Color = vbCyan
    End With
End Sub
Bemærk, at "Fortryd"-historikken vil blive deaktiveret, indtil der sker en anden handling i Excel, så du vil ikke være i stand til at fortryde formateringen, når du har ændret markeringen af celler igen. Hvis du ønsker at aktivere "Fortryd"-historikken igen, kan du tilføje følgende linje i slutningen af Sub-rutinen:

Application.OnUndo "My_OnUndo", "Fortryd"
Dette vil aktivere "Fortryd"-historikken igen og give dig mulighed for at fortryde formateringen ved at trykke "CTRL + Z".