Automatisk save med navnet fra et celle

Denne kode gemmer med navnet fra en celle, i dette tilfælde A1.

ActiveWorkbook.SaveAs Filename:=CStr(Range("A1").Value)

Glemte lige at sige at det var en kopi den shulle gemme. synes ikke det virker

ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\u21244\Skrivebord\Filename:=CStr(Range("C3").Value).xls"

Det har du ret i. Det vil ikke virke. Det betragter alt efter " som en lang tekststreng, og får ikke variablen med. Prøv i stedet med

ActiveWorkbook.SaveCopyAs Filename:= "C:\Documents and Settings\u21244\Skrivebord\" & CStr(Range("C3").Value) & ".xls"

Perfekt. hvis du sender et svar så du kan få dine point

WEt svar :-)