Save worksheet to new workbook

Any suggestions to make this work

[ Dim wb As Workbook ]
[ Dim fname ]
[ Set wb = Workbooks.Add ]
[ ThisWorkbook.Sheets("Submission").Copy Before:=wb.Sheets(1) ]
[ fname = InputBox("Enter Submission Date") ]
[ fname = fname & ".csv" ]
[ wb.SaveAs "C:\PWI Stats\Submissions\", fname]

Welcome to our Forum...

Please take a moment to read our forum rules...here
Your post does not comply with Rule # 2
2. Programming code must be enclosed in code tags to improve readability. (A, Z)

Please Login or Register  to view this content.

So...Edit your post...Highlight the code and press the # button
We can only assist once this has been done…

This thread does not comply to Rule No 5...
5. Do not open more than ONE thread per issue here. Expect duplicates to be closed.
Duplicate Post here

And...as mentioned in Post 2...A solution can only be offered if you correct your post 1 and enclose such with code tags...

Thanks for trying...Edit your post...Highlight the code and press the # button

Like this below...

Please Login or Register  to view this content.