Hi,

I have a function to upload a file, but it does not seem to work. Has
someone some suggestions?

Thanks
Jos Vens

Function My_Upload()

Dim oBk As Workbook
Set oBk = ActiveWorkbook
oBk.SaveAs "

End Function