Here is the Lotus Macro that I cannot convert to Excel.
/XCTILDE~/RSBA~ {WINDOWSOFF}/XCTILDE~/RSBA~ RANGE TO SEARCH
/BA=?/~ ITEM TO SEARCH FOR
BR{CE}
/BA=190/~ REPLACEMENT ITEM
A{HOME} RANGE TO SEARCH :FLL~
/RSDOC1~ ITEM TO SEARCH FOR :FLT~
/BA=?/PROV=/~ :FLB~
BR{CE} REPLACEMENT ITEM
/BA=75/PROV=4090/~ :FLR~
A{HOME} RANGE TO SEARCH :FLT~
/RSDOC2~ ITEM TO SEARCH FOR :FLB~
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM :FLT~
/BA=75/PROV=2640/~ :FLB~
A{HOME} RANGE TO SEARCH
/RSDOC3~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=75/PROV=9380/~ {D 3}
A{HOME} RANGE TO SEARCH {END}{R}
/RSDOC4~ ITEM TO SEARCH FOR /C~{U}~
/BA=?/PROV=/~ {END}{L}
BR{CE} REPLACEMENT ITEM {D}
/BA=75/PROV=910/~ /C{END}
A{HOME} RANGE TO SEARCH {R}{END}
/RSDOC5~ ITEM TO SEARCH FOR {R}{END}
/BA=?/PROV=/~ {R}~{U}~
BR{CE} REPLACEMENT ITEM {U 2}
/BA=75/PROV=2980/~ /M{D}
A{HOME} RANGE TO SEARCH {R 13}~
/RSDOC6~ ITEM TO SEARCH FOR {D}~
/BA=?/PROV=/~ {NS}
BR{CE} REPLACEMENT ITEM
/BA=75/PROV=345/~
A{HOME} RANGE TO SEARCH
/RSDOC7~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
(/BA=99/PROV=9999/)~
A{HOME} RANGE TO SEARCH
/RSDOC8~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
(/BA=99/PROV=9999/)~
A{HOME} RANGE TO SEARCH
/RSDOC9~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
(/BA=99/PROV=9999/)~
A{HOME} RANGE TO SEARCH
/RSDOC10~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
(/BA=99/PROV=9999/)~
A{HOME} RANGE TO SEARCH
/RSDOC11~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
(/BA=99/PROV=9999/)~
A{HOME} RANGE TO SEARCH
/RSDOC12~ ITEM TO SEARCH FOR /CC:AA160...C:AG160~~{NS}
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=9064/~
A{HOME} RANGE TO SEARCH
/RSDOC13~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=8000/~
A{HOME} RANGE TO SEARCH
/RSDOC14~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=9066/~
A{HOME} RANGE TO SEARCH
/RSDOC15~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=9029/~
A{HOME} RANGE TO SEARCH
/RSDOC16~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=8901/~
A{HOME} RANGE TO SEARCH
/RSDOC17~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=1085/~
A{HOME} RANGE TO SEARCH
/RSDOC18~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=4271/~
A{HOME} RANGE TO SEARCH
/RSDOC19~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=4160/~
A{HOME} RANGE TO SEARCH
/RSDOC20~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=3733/~
A{HOME} RANGE TO SEARCH
/RSDOC21~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=2575/~
A{HOME} RANGE TO SEARCH
/RSDOC22~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=2100/~
A{HOME} RANGE TO SEARCH
/RSDOC23~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=3361/~
A{HOME} RANGE TO SEARCH
/RSDOC24~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=3903/~
A{HOME} RANGE TO SEARCH
/RSDOC25~ ITEM TO SEARCH FOR
/BA=?/PROV=/~
BR{CE} REPLACEMENT ITEM
/BA=190/PROV=7865/~
A{HOME} RANGE TO SEARCH
/RSDOC26~
/BA=?/PROV=/~
BR{CE}
/BA=190/PROV=3903/~
A{HOME}
* {goto}F:D112~ ITEM TO SEARCH FOR
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} REPLACEMENT ITEM
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} RANGE TO SEARCH
{EDIT}{HOME}{R}({END})~{D} ITEM TO SEARCH FOR
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} REPLACEMENT ITEM
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} RANGE TO SEARCH
{EDIT}{HOME}{R}({END})~{D} ITEM TO SEARCH FOR
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} REPLACEMENT ITEM
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} RANGE TO SEARCH
{EDIT}{HOME}{R}({END})~{D} ITEM TO SEARCH FOR
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} REPLACEMENT ITEM
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} RANGE TO SEARCH
{EDIT}{HOME}{R}({END})~{D} ITEM TO SEARCH FOR
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} REPLACEMENT ITEM
{EDIT}{HOME}{R}({END})~{D}
{EDIT}{HOME}{R}({END})~{D} RANGE TO SEARCH
{EDIT}{HOME}{R}({END})~{D} ITEM TO SEARCH FOR
{EDIT}{HOME}{R}({END})~{D}
{GOTO}c:d150~/RE{END}{DOWN}~
{GOTO}AD:d1~/RE{END}{DOWN}~ REPLACEMENT ITEM
{GOTO}B:A1~
{GOTO}C:A1~
{GOTO}A:A1~
Any help would really be appreaciated.
Thanks
Mike
---
Message posted from
http://www.ExcelForum.com/