Macro to save to a certain location

[hoggsy]

Hi

I need to add a save button to a worksheet that will save the first page as a txt file with a username that comes from data within certain cells.
Using the following for an example;

C7 Joe Bloggs
E3 22-02-09
G4 Dr Noone

Save location B:\Test_Results\Machine_Results\Dr Noone\Joe Bloggs-22-02-09

Any help would be great i have been trying this for longer than i care to think about

 

[Andrew Poulsom]

Example:

Sub Test()
    Dim FName As String
    With Worksheets("Sheet1")
        .Copy
        FName = "B:\Test_Results\Machine_Results\" & .Range("G4").Value & "\" & .Range("C7").Value & "-" & Format(.Range("e3").Value, "dd-mm-yy") & ".txt"
        ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlTextMSDOS
        ActiveWorkbook.Close False
    End With
End Sub