gem automatisk i mappe

Hej!

Jeg sidder og leger lidt med excel, i et forsøg på at lave det til et fakturerings program hehe... og selvom at jeg snart har læst de 3½k spørgsmål/svar der allerede er har jeg stadig lidt flere :P

her er et par stykker:

#1 Jeg vil gerne have det til at gemme automatisk når jeg udskriver siden, jeg har fundet denne kode i et andet svar,

Sub GemSom()
Range("A1").Select
Name = ActiveCell.Value

ActiveWorkbook.SaveAs Filename:="C:\" & Name
End Sub

men der mangler lige mappe delen. Derfor prøvede jeg selv at pille lidt, men har aldrig leget med vb ting før, så jeg kunne ikke få det til at værke. Her er hvad jeg har æltet mig frem til hehe

Sub GemSom()
Range("A1").Select
Name = ActiveCell.Value
Range("B1").Select
Name2 = "C:\" & ActiveCell.Value & "\"
If ActiveWorkbook.FolderExists(Name2)Then
ActiveWorkbook.SaveAs Filename:="C:\" & Name
Else ActiveWorkbook.CreateFolder(Name2)
ActiveWorkbook.SaveAs Filename:="C:\" & Name
End If
End Sub

#2 Jeg bruger =IF(G16=0;"";VLOOKUP(G16;Produkter!A1:D200;4;FALSE)) til at hente info om produkterne fra et andet ark, som i sikkert allerede havde luret ;). Nr 4 der er en enhed f.eks. Timer, som det er nu har jeg altid Time(r) i time felterne, kan man få den til at skrive Time hvis det er time(r) der står og C16 er >1 uden at det går ind og forstyrrer hvis der f.eks. står stk. ?

to ufatteligt uskarpe spørgsmål fra mig, som jeg håber at nogle kan tyde alligevel

Hilsen Brian