A co-worker asked me to help with an old workbook that appears to have some really old macros. I have been working with VBA for more than 3 years and I have NEVER seen this. The macros are simply listed on a worksheet and are not the VBA editor. Does anyone have any ideas on where to look for help on this fossil? Thanks for any help you can offer!!!
ROMP
=SELECT(!rompdataclear)
=CLEAR(3)
=FORMULA.GOTO("START")
=ECHO(FALSE)
=FOR("counter",!l1_START,!L1_stop,1)
=FORMULA(counter,!selected_issue)
=FOR("counter2",L2_start,L2_stop,1)
=FORMULA(counter2,!maturity_selected)
=MESSAGE(TRUE,"Please Wait …. Calculating Bond Issue "&TEXT(counter,"0")&" of "&TEXT(!L1_stop,"0")&" / Maturity "&TEXT(counter2,"0")&" of "&TEXT(!l2_stop,"0"))
=CALCULATE.NOW()
=FORMULA(!selected_issue*1000+Maturity_Selected,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!series_name,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_matdate,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!accreted_value,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_avalue,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_coupon,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_call,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_premium,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_refundable,ACTIVE.CELL())
=SELECT("rc[2]")
=IF(!selected_avalue>0)
=FORMULA(0,!use_mkt_move)
=RUN("Solve",FALSE)
=FORMULA(!ref_par,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!arb,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!ref_savings,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!ref_savper,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(1,!use_mkt_move)
=RUN("Solve",FALSE)
=FORMULA(!ref_savings,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!ref_savper,ACTIVE.CELL())
=SELECT("r[1]c[-15]")
=ELSE()
=SELECT("r[1]c[-10]")
=END.IF()
=NEXT()
=NEXT()
=MESSAGE(FALSE)
=RETURN()
ROMP
=SELECT(!rompdataclear)
=CLEAR(3)
=FORMULA.GOTO("START")
=ECHO(FALSE)
=FOR("counter",!l1_START,!L1_stop,1)
=FORMULA(counter,!selected_issue)
=FOR("counter2",L2_start,L2_stop,1)
=FORMULA(counter2,!maturity_selected)
=MESSAGE(TRUE,"Please Wait …. Calculating Bond Issue "&TEXT(counter,"0")&" of "&TEXT(!L1_stop,"0")&" / Maturity "&TEXT(counter2,"0")&" of "&TEXT(!l2_stop,"0"))
=CALCULATE.NOW()
=FORMULA(!selected_issue*1000+Maturity_Selected,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!series_name,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_matdate,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!accreted_value,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_avalue,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_coupon,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_call,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_premium,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!selected_refundable,ACTIVE.CELL())
=SELECT("rc[2]")
=IF(!selected_avalue>0)
=FORMULA(0,!use_mkt_move)
=RUN("Solve",FALSE)
=FORMULA(!ref_par,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!arb,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!ref_savings,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!ref_savper,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(1,!use_mkt_move)
=RUN("Solve",FALSE)
=FORMULA(!ref_savings,ACTIVE.CELL())
=SELECT("rc[1]")
=FORMULA(!ref_savper,ACTIVE.CELL())
=SELECT("r[1]c[-15]")
=ELSE()
=SELECT("r[1]c[-10]")
=END.IF()
=NEXT()
=NEXT()
=MESSAGE(FALSE)
=RETURN()