Dato genvej - "SHIFT Ctrl+;" minus én dag

Gi denne makro genveistast Ctrl + o

Sub Makro1()
    With Selection
        .NumberFormat = "d/m/yy;@"
        .FormulaR1C1 = "=Today()-1"
    End With
End Sub

ja.. det var nu ikke helt dette - Men der henaf, fordi med denne indsætter jeg jo bare formlen, men det skal kun være værdien der skal indsættes eller vil cellen jo ændre sig imorgen når jeg åbner arket igen...?

Sub Makro2()
'
' Makro2 Makro
'

'
    ActiveCell.FormulaR1C1 = "=+TODAY()-1"
    Range("A1").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Sub Makro1()
    With Selection
        .NumberFormat = "d/m/yy;@"
        .FormulaR1C1 = "=Today()-1"
        .Copy
        .PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

oyejo, du må gerne sende et svar :-)

Takk for det

Det er mig der takker! :-)