SaveAs does not work with variables for Path and Filename?

Hi all.
I am hoping somebody can help me, i have spent days trying to work out what i am doing wrong but still no success. All i am wanting to do is create a new .CSV file from a sheet in my workbook. This is the last part of my macro. I want the new file to be put in the same working folder as my workbook.
When i use variables for the file name and path i get 'Runtime error 1004 method SaveAs of object_workbook failed.' If i hardcode in the path and filename it works fine. I need to use variables since the file name and path will vary.
Hoping somebody can help Thanks
Here is my code:

Please Login or Register  to view this content.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Please explain how & where CompanyName defined.

1. note that you cannot have slashes in a file name (this was the error causing the crashes)
2. note the space between company name and date
3. note the removal of the unnecessary parentheses
4. You don't necessarily need to CHDir since the filename includes the drive and path
5. If the active workbook has not been saved before the macro is run, then Pth = ActiveWorkbook.Path will be empty (another cause for error/crash)

Please Login or Register  to view this content.