try changing:

   If WasOpen Then
       wbOPEN.Save
Else: wbOPEN.Close True
     Set wbOPEN = Nothing
    WasOpen = False
 
     End If
to
   If WasOpen Then
     wbOPEN.Save
Else
     wbOPEN.Close True
     Set wbOPEN = Nothing
     WasOpen = False
 End If