convert formulas and actions to vba code

[fakhteh]

Hi every one
can i convert this below functions and formulas to vba code to run in macro

Press Ctrl+F3
New Name : SheetName
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,9)


A2
=IF(ROWS(A$2:A2)< COUNTA(SheetName),INDEX(SheetName,ROWS(A$2:A2)),"")

B2
=IF(A2="","",INDIRECT("'"&A2&"'!h2")&"")

C2
=IF(B2="","",SLOPE(INDIRECT("'"&A2&"'!R2:R19"),INDIRECT("'"&A2&"'!Q2:Q19")))

thank you so much
wish you all the best

[Kaper]

see yellow banner at the top of the page

[fakhteh]

hi
xslb format file was attached

[Bo_Ry]

Please try

Please Login or Register  to view this content.

[Kaper]

Hi Bo_ry,
The code is almost exactly what I started writing once I saw the sample file.
The only minor difference would be that instead of using

Please Login or Register  to view this content.

I'd probably use Slope in context of application:

Please Login or Register  to view this content.

thus getting a #DIV/0! error message in a cell (but not breaking code excecution) or testing the content of H2 and skipping the sheet if it's empty.