Sub Format()
'
' Ny_format
'
' Genvejstast:Ctrl+f
'
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        'Disse behøves ikke. Makroen kan godt arbejde med arkene, selv om de ikke er valgt/selected
        'Sheets(Array("ma", "ti", "on", "to", "fr", "lø", "sø")).Select
        'Sheets("ma").Activate
        With wsh
            If LCase(.Name) <> "start" Then
                'Området behøver ikke at være valgt/selected for, at makroen kan arbejde med området
                'Range("A1:V1").Select
                With .Range("A1:V1").Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 49407
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
                'Columns("E:E").Select
                With .Columns("E:E")
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlBottom
                    .WrapText = False
                    .Orientation = 0
                    .AddIndent = False
                    .IndentLevel = 0
                    .ShrinkToFit = False
                    .ReadingOrder = xlContext
                    .MergeCells = False
                End With
                'Columns("G:G").Select
                With .Columns("G:G")
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlBottom
                    .WrapText = False
                    .Orientation = 0
                    .AddIndent = False
                    .IndentLevel = 0
                    .ShrinkToFit = False
                    .ReadingOrder = xlContext
                    .MergeCells = False
                End With
                'Columns("J:J").Select
                With .Columns("J:J")
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlBottom
                    .WrapText = False
                    .Orientation = 0
                    .AddIndent = False
                    .IndentLevel = 0
                    .ShrinkToFit = False
                    .ReadingOrder = xlContext
                    .MergeCells = False
                End With
                'Antager, at det er den sidst anførte kolonnebredde, som skal gælde
                '.Columns("H:H").ColumnWidth = 15
                .Columns("H:H").ColumnWidth = 16.14
                .Columns("U:U").EntireColumn.AutoFit
                .Columns("V:V").EntireColumn.AutoFit
                .Activate
                .Range("A2").Select
            End If
        End With
    Next wsh
    ThisWorkbook.Sheets("Start").Select
End Sub