Hi, Thank you, however, it loops back to this
Code:
strShtname = .Range(strRngName).Parent.Name
and stops there. But it does copy first page in the range and opens new wb and paste it there, but copies with formulas and not with correct page setup.

Please assist.