modify this line:
[VBA]WB.SaveAs FileName:="C:\Users\jsabo\Desktop\" & FileName & ".xlsx", fileformat:=50
[/VBA]