Exporting Workbook with new name

I'm currently working on a macro that export several rows and cells to a new workbook which then is saved as a txt-file with the same name as the original workbook.
I have written and worked out everything except the saving-part. I can't work out how to save the new file with a different name everytime.

Here's what i got so far:

Sheets("Eksport").Visible = True
Sheets("Eksport").Select
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= "H:\My Documents\Ny Kalkuleringsmal\CSV\test.txt" _
    , FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Sheets("Eksport").Visible = False

not quite sure what you mean by "different name every time" you couled forinstance date-stamp the file: if that's what you're thinking about?

ActiveWorkbook.SaveAs Filename:= "H:\My Documents\Ny Kalkuleringsmal\CSV\test" & Date & ".txt" _
    , FileFormat:=xlCSV, CreateBackup:=False

You are exporting a worksheet not a workbook.

something like

With Sheet1
.Visible = xlSheetVisible
.Copy
.Visible  = xlSheetVeryHidden
End With
ActiveWorkbook.SaveAs Filename:="H:\My Documents\Ny Kalkuleringsmal\CSV\test" & Format(Date, "ddmmyy") & Format(Time, "hhmmss") & ".txt" _
    , FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close

Originally Posted by joehjas

Okay, maybe I am,

It makes a big difference

to put it simple: you can achieve what ever you need; question is: what is it exactly that you want to achieve?
eg. if you had to do it manually, what would you do, how would you name the files; and why would you name them the way you would?

(the more info you give, the easier it is for us to understand what you want/need, thus easier to help)

' on top of your code, you could
public saveName As String
saveName = ActiveWorkbook.Name

'then later upon saving do 
ActiveWorkbook.SaveAs Filename:="H:\My Documents\Ny Kalkuleringsmal\CSV\" & saveName & ".txt" _
    , FileFormat:=xlCSV, CreateBackup:=False

in your example; it would be something like :

public saveName as string

sub yoursubname()
With Ark1 ' change to the codename for "Eksport"
.Visible = xlSheetVisible
.Copy
.VPageBreaks = xlSheetVeryHidden
End With

ActiveWorkbook.SaveAs Filename:="H:\My Documents\Ny Kalkuleringsmal\CSV\" & saveName & ".txt" _
    , FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
end sub

alter saveName to:

saveName = Left(ActiveWorkbook.Name, (Len(ActiveWorkbook.Name) - 5))
'Explanation:
'saveName= Left(whole name, length ; where Length = total length subtracted by 5 (".xlsm" = 5 characters)