Dim nomefile As String = $"xxxx${DateTime.Date(DateTime.Now)}.xlsx"$
wb.Save(File.DirApp, nomefile)
wb.Close
Sleep(1000)
'OK FOR MAC
fx.ShowExternalDocument(File.GetUri(File.DirApp, nomefile))
cutils.ShowNotification3("",$"FILE CREATO CON IL NOME ${nomefile} PRESENTE NELLA CARTELLA:
${File.DirApp}"$, cutils.ICON_CONFIRM, MainForm, "BOTTOM_RIGHT", 9000)