Makro som gemmer fil/Excel ark med indholdet fra celle som filnav

Du kan "optage" dine handlinger som makro. I funktioner - Makro startes indspild makro, herefter aktivere du cellen, kopiere indholdet, trykker filer - gem som, sætter det kopierede navn ind og klikker på gem.

HErefter stoppes indspildningen og makroen navngives. Din makro er nu klar

Her er en makro, der gemmer filen på c-drevet med det navn der står i celle A1:

Sub GemRegnark()
    FilNavn = Range("A1").Value
    ActiveWorkbook.SaveAs Filename:="c:\" & FilNavn & ".xls"
End Sub

Det kan jeg ikke få til at virke, jo, men kun den ene gang. Macro skal sige noget hen ad; save as "a1".xls - Hvis du kan følge mig. Men det må vel være noget med at man skal finde indhold af den celle og ja, så kan jeg ikke hitte på mere...

Public Sub GemSom()

Dim filNavn As String
filNavn = [A1].Value
ActiveWorkbook.SaveAs filNavn

End Sub

Tak for den hurtige hjælp, RVM var først med den rigtige løsning.

rvm >> Så ikke lige dit svar... :-)

blackadder>> Hvorfor skriver du det samme som mig. Du må da komme med noget nyt, når du laver et indlæg... *S*

OK - jeg så heller ikke din kommentar *SSSS*

Hvad kan man så lære af det ?
Husk at reloade siden inden man svarer...  :-)

UPS, bedre sent end aldrig
Sub Gem()
    ThisWorkbook.SaveAs FileName:=Worksheets(1).Range("A1")
End Sub
mvh
alj