asked on
Set myBook = Nothing
On Error Resume Next
Set myBook = Workbooks.Open(MyPath & MyFiles(FNum), UpdateLinks:=0)
If ShName = "ResPlan_Data" Then
Call UnpivotResPlan
myBook.Save
myBook.Close
mybook.????
End If