"Mike123 " wrote...
Here is the Lotus Macro that I cannot convert to Excel.

Looks like you pasted in several columns from your 123 file. The macro in
the second column looks like it'd be equivalent to


Sub foobar()
Application.ScreenUpdating = False

Call TILDE

Names("BA").RefersToRange.Replace What:="/BA=?/", _
Replacement:="/BA=190/", LookAt:=xlPart
Application.Goto Reference:=Names("BA").RefersToRange, Scroll:=True

Names("DOC1").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=75/PROV=4090/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC1").RefersToRange, Scroll:=True

Names("DOC2").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=75/PROV=2640/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC2").RefersToRange, Scroll:=True

Names("DOC3").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=75/PROV=9380/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC3").RefersToRange, Scroll:=True

Names("DOC4").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=75/PROV=910/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC4").RefersToRange, Scroll:=True

Names("DOC5").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=75/PROV=2980/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC5").RefersToRange, Scroll:=True

Names("DOC6").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=75/PROV=345/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC6").RefersToRange, Scroll:=True

Names("DOC7").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="(/BA=99/PROV=9999/)", LookAt:=xlPart
Application.Goto Reference:=Names("DOC7").RefersToRange, Scroll:=True

Names("DOC8").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="(/BA=99/PROV=9999/)", LookAt:=xlPart
Application.Goto Reference:=Names("DOC8").RefersToRange, Scroll:=True

Names("DOC9").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="(/BA=99/PROV=9999/)", LookAt:=xlPart
Application.Goto Reference:=Names("DOC9").RefersToRange, Scroll:=True

Names("DOC10").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="(/BA=99/PROV=9999/)", LookAt:=xlPart
Application.Goto Reference:=Names("DOC10").RefersToRange, Scroll:=True

Names("DOC11").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="(/BA=99/PROV=9999/)", LookAt:=xlPart
Application.Goto Reference:=Names("DOC11").RefersToRange, Scroll:=True

Names("DOC12").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=9064/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC12").RefersToRange, Scroll:=True

Names("DOC13").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=8000/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC13").RefersToRange, Scroll:=True

Names("DOC14").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=9066/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC14").RefersToRange, Scroll:=True

Names("DOC15").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=9029/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC15").RefersToRange, Scroll:=True

Names("DOC16").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=8901/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC16").RefersToRange, Scroll:=True

Names("DOC17").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=1085/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC17").RefersToRange, Scroll:=True

Names("DOC18").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=4271/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC18").RefersToRange, Scroll:=True

Names("DOC19").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=4160/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC19").RefersToRange, Scroll:=True

Names("DOC20").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=3733/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC20").RefersToRange, Scroll:=True

Names("DOC21").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=2575/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC21").RefersToRange, Scroll:=True

Names("DOC22").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=2100/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC22").RefersToRange, Scroll:=True

Names("DOC23").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=3361/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC23").RefersToRange, Scroll:=True

Names("DOC24").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=3903/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC24").RefersToRange, Scroll:=True

Names("DOC25").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=7865/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC25").RefersToRange, Scroll:=True

Names("DOC26").RefersToRange.Replace What:="/BA=?/PROV=/", _
Replacement:="/BA=190/PROV=3903/", LookAt:=xlPart
Application.Goto Reference:=Names("DOC26").RefersToRange, Scroll:=True

Application.Goto Reference:=Worksheets("F").Range("D112"), Scroll:=True
For i = 0 To 25
ActiveCell.Offset(i, 0).Formula = _
"(" & ActiveCell.Offset(i, 0).Formula & ")"
Next i

Application.Goto Reference:=Worksheets("C").Range("D150"), Scroll:=True
Range(ActiveCell, ActiveCell.End(xlDown)).ClearContents

Application.Goto Reference:=Worksheets("AD").Range("D1"), Scroll:=True
Range(ActiveCell, ActiveCell.End(xlDown)).ClearContents

Application.Goto Reference:=Worksheets("C").Range("A1"), Scroll:=True
Application.Goto Reference:=Worksheets("B").Range("A1"), Scroll:=True
Application.Goto Reference:=Worksheets("A").Range("A1"), Scroll:=True

Application.ScreenUpdating = True
End Sub


Note that /XCTILDE~ is equivalent to {TILDE}, which is a call to a macro
subroutine named TILDE.