Tusindtalsseparator virker ikke i min makro

Jeg kan ikke få tusindtalsseparator til at virker i min makro som laver en Pivottabel !!

Hvad gør jeg forkert, det må være noget med "NumberFormat" - Er ret ny i det med makroer.



--------
Sub Prkvtkort()
'
' Prkvtkort Makro
' Makro indspillet 22-02-2010 af Bøje Rauff
'
' Genvejstast:Ctrl+a
'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Worksheets("Data").Range("A1").CurrentRegion).CreatePivotTable TableDestination:="", TableName:= _
        "Pivottabel2", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Pivottabel2").PivotFields("Kvartal").Subtotals = Array _
        (False, True, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("Pivottabel2").PivotFields("Overførselstype"). _
        Subtotals = Array(False, True, False, False, False, False, False, False, False, False, _
        False, False)
    ActiveSheet.PivotTables("Pivottabel2").AddFields RowFields:=Array("Kvartal", _
        "Overførselstype", "Data"), PageFields:="Kundenavn"
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("Antal")
        .Orientation = xlDataField
        .Position = 1
        .NumberFormat = "#"
    End With
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("Beløb i DKK")
        .Orientation = xlDataField
        .NumberFormat = "#"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.393700787401575)
        .BottomMargin = Application.InchesToPoints(0.393700787401575)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Columns("B:B").ColumnWidth = 8.57
    Range("C3").Select
    With ActiveSheet.PivotTables("Pivottabel2").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    Columns("B:B").ColumnWidth = 28.14
    Range("A1").Select
    With Selection.Interior
        .ColorIndex = 37
        .Pattern = xlSolid
    End With
    Range("A3:D4").Select
    With Selection.Interior
        .ColorIndex = 37
        .Pattern = xlSolid
    End With
    ActiveSheet.PivotTables("Pivottabel2").PivotSelect "Kvartal[All;Sum]", _
        xlDataAndLabel, True
    With Selection.Interior
        .ColorIndex = 37
        .Pattern = xlSolid
    End With
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 6
    ActiveSheet.PivotTables("Pivottabel2").PivotSelect "'Column Grand Total'", _
        xlDataAndLabel, True
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
    ActiveWindow.LargeScroll Down:=-1
    Columns("A:A").EntireColumn.AutoFit
End Sub