vba ergjan

Sub Makrotusindetalsseperator()
'
' Makrotusindetalsseperator Makro
'
Sheets("SMPDKK").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"

'-------------------------------------------------
Sheets("SMPEUR").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"

'-------------------------------------
Sheets("SBPDKK").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"

'-------------------------------------------
    Sheets("SBPEUR").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"

'------------------------------------------------
Sheets("KSDKK").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"

'------------------------------------------------------
'------------------------------------------------
Sheets("KSDKKEJENDOM").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"

'------------------------------------------------
Sheets("SKAREFOODDKK").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"

'------------------------------------------------
Sheets("SKAREFOODEUR").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"


'------------------------------------------------
Sheets("VESJBDKK").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"


'------------------------------------------------
Sheets("SKARERASKDKK").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"


'------------------------------------------------
Sheets("OSTDKK").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"


'------------------------------------------------
Sheets("OSTEUR").Select
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom

    End With
    Columns("D:E").Select
    Selection.NumberFormat = "#,##0.00"


End Sub