Definere Typografi via macro

Jeg har et regneark, hvor det vil være hensigtsmæssigt at kunne vælge at vise tal i den valuta man måtte ønske, DEM, DKK, USD osv.

Det jeg så som den nemmeste løsning var at oprette en typografi, som så via macroer burde kunne redefineres. Jeg indspillede en macro:

    With ActiveWorkbook.Styles("Curency")
        .IncludeNumber = True
        .IncludeFont = True
        .IncludeAlignment = False
        .IncludeBorder = True
        .IncludePatterns = True
        .IncludeProtection = True
    End With
    ActiveWorkbook.Styles("Curency").NumberFormat = _
        "[$DKK] #.##0;[Rød][$DKK] #.##0"
    With ActiveWorkbook.Styles("Curency").Interior
        .ColorIndex = 36
        .PatternColorIndex = xlAutomatic
        .Pattern = xlSolid
    End With
    Selection.Style = "Curency"
End Sub

Når jeg afspiller denne, får jeg imidlertid en fejl, der siger:

"Run-time error 1004
Kan ikke angive egenskaben NumberFormat for klassen Style"

Hvad i alverden er der galt med den?