help with filepath

[Brian Thompson via OfficeKB.com]

This is exactly what i want, got off an earlier thread, however, don't know
how to get it to save in the folder "Problem vehicles". It keeps saving in
My documents

Used the record macro to get this, but not sure where to place in codeing
"C:\Documents and Settings\Brian\My Documents\Brian's\problem vehicles"

where do I copy the above, to save the sheet in "folder "Problem Veehicles

sub save_date()
Dim fname
fname = worksheets("sheet1").range("A1").value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
end sub

please help

brian

 

[Dave Peterson]

sub save_date()

dim fname as string
dim pname as string

pname = "C:\Documents and Settings\Brian\My Documents" &_
"\Brian's\problem vehicles\" '<-note the final \

fname = worksheets("sheet1").range("A1").value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=pname & fname

end sub

 

[Brian Thompson via OfficeKB.com]

thanks dave

regards

sub save_date()

dim fname as string
dim pname as string

pname = "C:\Documents and Settings\Brian\My Documents" &_
"\Brian's\problem vehicles\" '<-note the final \

fname = worksheets("sheet1").range("A1").value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=pname & fname

end sub

This is exactly what i want, got off an earlier thread, however, don't know
how to get it to save in the folder "Problem vehicles". It keeps saving in

[quoted text clipped - 15 lines]

brian