Code to save workbook in specific location not working

[JAB331]

I am using the following code and it saves correctly with the right name but not the correct location, is there something obviously not wrong and will it be affected by the fact its a network drive?

 Private Sub CommandButton1_Click()    ChDir ("S:\Development\Tool Trial Procedure Reports\") ' Directory you need to save the file as xlsm
    Filename = Range("T3").Value & ";" & Range("T5").Value
    ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=52
End Sub

 

[njimack]

Try this (untested):

 Private Sub CommandButton1_Click()
 Dim Path As String, Filename As String
 
 Path = "S:\Development\Tool Trial Procedure Reports\"
    Filename = Range("T3").Value & ";" & Range("T5").Value
    ActiveWorkbook.SaveAs Path & Filename, FileFormat:=52
End Sub