Gem som med tekst fra celle

Sub GemMedNavn()
Dim stFileName As String
stFileName = "C:\MyTestFolder\" & Range("A1") & Range("B1") & ".xls"
ActiveWorkbook.SaveAs stFileName
End Sub

Hvis det bare er arket du vil kopiere så brug denne

Sub Makro1()
Dim stSheetName As String
  stSheetName = Range("A1") & Range("B1")
  ActiveSheet.Copy After:=Sheets(Sheets.Count)
  ActiveSheet.Name = stSheetName
End Sub

Jeg vil gerne have en knap gemmer arket men skal jeg så vælge en kommandoknap? Og bør koden for den komme til at se sådan ud:
Private Sub CommandButton1_Click()
Dim stFileName As String
stFileName = "C:\MyTestFolder\" & Range("A1") & Range("B1") & ".xls"
ActiveWorkbook.SaveAs stFileName
End Sub

Jeps, det ser ok ud. Det vil gemme projektmappen, men jeg er lidt i tvivl om det er hele projektmappen du ønsker at gemme eller det bare er selve arket. En projektmappe kan jo have mange Ark.

Jeg har kun et ark i mit projekt og det vil ikke ændre sig så det gør ingen forskel. Hvis jeg skal hente tekst fra en tekstboks er kommandoen så TextBox1.GetText(1) eller hva?

Nej, ikke helt
Bare
MyVariable=TextBox1.value

Ok. Lige hurtigt, hvad er kommandoen så for integer to string i vb. Har kun kodet Delphi/Pascal før så er på bar bund ang. syntaks osv..

MyString = CStr(MyInteger)