Versions nr når der ændres i filen

Det kan for eksempel laves med en makro i stil med nedenstående. Den opdaterer versionsnummeret i celle F1, hver gang der laves ændringer i området A4:F296.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:F296")) Is Nothing Then
Range("F1") = Range("F1") + 1
Range("F1").Select
Application.CutCopyMode = False
    Selection.NumberFormat = """Version ""@"
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1
End If
End Sub

Det virke ski :) Takker