'------------------------------------------------------------------------------------------ Application.Windows(wbDest.Name).Visible = True wbDest.Close savechanges = True '------------------------------------------------------------------------------------------