Export one sheet from Excel

Question

i have the current working code

Set fso = CreateObject("Scripting.FileSystemObject")
Set xl  = CreateObject("Excel.Application")
xl.Visibl