VBA - save file as...

[Read_This]

In vba I'm trying to save a copied portion of an xlsm worksheet C1:C466 as a test.ebm file.

For reference, an .ebm file [when opened in notepad] appears as normal text, no special characters or issue however, my problem is forcing vba to save, naming with the .ebm file extension. [In Windows, this can be achieved by pasting the copy into a notepad file and saving that file in quotes e.g. "Test.ebm"


Perfection would be to save the .ebm file in C:\Users\Public\Documents

A "Save as" with a prompt will also ok however, ideally I would like all the above



Any support/pointers would be appreciated

 

[Scott Huish]

Sub test()
Dim c As Range
Open "C:\Users\Public\Documents\test.ebm" For Output As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
For Each c In Range("C1:C466")
    Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , c.Text
Next
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
End Sub

 

[Read_This]

Sub test()
Dim c As Range
Open "C:\Users\Public\Documents\test.ebm" For Output As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
For Each c In Range("C1:C466")
    Print [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , c.Text
Next
Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
End Sub

Perfect - thank you!