Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("ListFilter").Columns("M:V") ' change to columns to replace string
Application.DisplayAlerts = False
.Replace What:=" Lane", Replacement:=" Ln", SearchOrder:=xlByColumns, MatchCase:=True...