I have written a macro to link a “ destination range" to “ visible cells” of “source range”. see the attached Excel, in which, if I be in sheet1!A1 and the "source range" be “Sheet2'!A1:P43” I want the sheet1!A1 formula be “=Sheet2!A1” and sheet1!A2 formula be "=Sheet2!A13” (connecting 1th,2th and .. row of “destination range” to1th,2th and .. “visible rows” of source range. Run the macro assigned to the rectangular in sheet1 to see what I want. In the inputbox "source rage" should be selected.).
My macro does what is expected, but it is slow when dealing with large data and because of this, I am seeking some ways to make it more efficient.
Can you guide me on this issue?

Attached Files

link.xlsm (25.4 KB, 7 views)