Macro indsætter filnavnet i en celle

Range("A2").Value = Left$(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name,".")-1)

hvordan kan man sætte den ovenstående linie ind i en sammenhæng med en fast tekst.

eksempel:

"regneark udført"

jeg har også brug for den aktuelle bruger af pcen i et felt, feks bruger id der er logget på pcen? kan den findes frem også?

Ole

= Left$(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & " udført"

Range("A3").Value = Application.UserName
Giver navnet på Excel bruger.
I Excel --> Filer --> Indstilinger --> Generelt --> Brugernavn

Spørgsmål 1:
Range("A2").Value = Left$(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name,".")-1) & " udført"

Spørgsmål 2: Kan man nøjes med Excel brugernavnet, kan man nøjes med...
Range("A2").Value = Left$(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name,".")-1) & " udført af " & Application.UserName

Ønskes det computerens brugernavn kan du kigge her:
http://www.EXCELGAARD.dk/Bib/BRUGERINFO/