Hi,
I got error , it says "Subscription out of range", run time error.
I was doing copying and paste in another workbook from Master workbook.

fname = Application.GetSaveFileName
If fname <>False then

' code here for deleting several sheets

End If
msgbox " do you want to see?"
Workbooks.Open(fname)'<-----error here
End Sub

How can I solve the Subscription out of range error?

Thanks