private sub to save an excel sheet as separate csv

[VectorW2]

I have a private sub that calls a macro (works):

Case "Save":
Call SaveAsCSV

However, I would prefer to not have the "SaveAsCSV" be a public macro and just add it to the private sub

The public "SaveAsCSV" macro:

Sub SaveAsCSV()

'

' SaveAsCSV Macro

'



'

Sheets("Gama Uploadable").Select

ActiveWorkbook.SaveAs Filename:= _

"C:\My Documents\Upload Files (2022)\" & Range("GamaFileName").Value & ".csv", _

FileFormat:=xlCSVUTF8, CreateBackup:=False



End Sub

The public sub also renames the sheet inquisition a unique name based on the value of a cell. That cell has a formula in it.

If you can help me, I would greatly appreciate it.

Thank you in advance.

 

[VectorW2]

No that allows you to run a private macro.

Fluff, thank you! I figured out my errors. I needed rename the sheet from a location on the private macro sheet. Something with the way I was trying to save too, but it all works now as a private sub.

Thank you.

 

[Fluff]

Glad to help & thanks for the feedback.