Auto Saving

[GarToms]

Hi All,

I'v found this code to auto save my worksheet with the name in C1.
want to specify the file to save it to. Does anyone know what code
can put in it to save to the following directory
L:\Credit Management Team\Gareth Thomas


Sub SaveAsCell()
Dim strName As String

On Error GoTo InvalidName
strName = Sheet1.Range("C1")
ActiveWorkbook.SaveAs strName

Exit Sub
InvalidName: MsgBox "The text: " & strName & _
" is not a valid file name.", vbCritical, "Ozgrid.com"
End Su

 

[Kevin B]

When you assign the value of the worksheet name to the variable string name,
concatenate the full path to the file

strName = "L:\Credit Management Team\Gareth Thomas\" & _
Worksheets("Sheet1").Range("C1").Value

 

[GarToms]

excelent cheers

When you assign the value of the worksheet name to the variable strin
name,
concatenate the full path to the file

strName = "L:\Credit Management Team\Gareth Thomas\" & _
Worksheets("Sheet1").Range("C1").Value
--
Kevin Backmann


:


Hi All,

I'v found this code to auto save my worksheet with the name in C1. I
want to specify the file to save it to. Does anyone know what code i
can put in it to save to the following directory
L:\Credit Management Team\Gareth Thomas


Sub SaveAsCell()
Dim strName As String

On Error GoTo InvalidName
strName = Sheet1.Range("C1")
ActiveWorkbook.SaveAs strName

Exit Sub
InvalidName: MsgBox "The text: " & strName & _
" is not a valid file name.", vbCritical, "Ozgrid.com"
End Sub