Jeg har udarbejdet følgende macro, som kan ændre, efter filen er åbnet, men det ville jo være optimalt, at excel selv kan erstatte med indholdet af C2.
Dim LNR As Integer
Dim n As Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
n = ActiveSheet.Index
Worksheets(n + 1).Activate
LNR = Range("C2").Value
ActiveSheet.Unprotect
Cells.Replace What:="Lønninger 23", Replacement:="Lønninger " & LNR, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True