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.

 

[Fluff]

What module is the SaveAsCSV code in?

 

[VectorW2]

Silly question but how do I tell? The private sub is on sheet one. The second sheet takes the data from the sheet one; calculates and converts it. The formula and range to rename the third sheet is also located on here on the second sheet. The private sub clears the first sheet. Then copies the second sheet and pasted special onto the third sheet.

The third sheet is to be saved as csv in a specific location, with a specific and unique name.

There can be no formulas on it as it is needed as text only for upload. I hope this answers your question.

 

[Fluff]

If you goto the code & look at the title bar of the VB editor it will have something like [Module1(code)] what does that bit say?

 

[VectorW2]

Vbaproject(1.6.22 Template - 6I to Gama.xlsm)
Vbaproject(personal.xlsb)
Microsoft excel objects
Modules
Module1 —located here—

 

[Fluff]

In that case instead of Call SaveAsCSV you can use Run "Module1.SaveAsCSV"

 

[VectorW2]

Does that remove the macro from view?

 

[Fluff]

No that allows you to run a private macro.

 

[VectorW2]

I hoped to just add to the private sub somehow. I’ve tried many different things…but none worked. It works when calling it but not if I try to include it in the private sub code.

 

[VectorW2]

I will try your suggestion and see what happens. Thank you for your time and help. If i can get that piece to work in the private sub…i would prefer it.