Lås af kolonne

Option Explicit
'Indsættes som ark-kode
Dim rArea As Range
Private Sub Worksheet_Change(ByVal Target As Range)
    Set rArea = Range("A2") 'Første celle der skal formateres
    Set rArea = Range(rArea, rArea.Offset(10000, 0).End(xlUp)) ' udvider til sidste celle med data <A10000
    If Not Intersect(Target, rArea) Is Nothing Then
        With rArea
            .NumberFormat = "####" 'Tekst Formatering
            With .Font
                .Size = 11 ' Tekst størrelse
                .Name = "Calibri" ' Font navn
            End With
        End With
    End If
End Sub