pdf 변환 메크로 사용시 저장경로 바꾸려는데.. 모르겠어요

Sub PDF로저장()
Dim FSO As Object
Dim S(1) As String
Dim sNewFilePath As String
Dim sSangHo As String
Dim sSheetName As String

Set FSO = CreateObject("Scripting.FileSystemObject")
S(0) = ThisWorkbook.FullName
sSheetName = ActiveSheet.Name
Application.ScreenUpdating = False
If FSO.FileExists(S(0)) Then
S(1) = FSO.GetExtensionName(S(0))
If S(1) <> "" Then
S(1) = "." & S(1)
sNewFilePath = Sheet1.Range("t1") & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=sNewFilePath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=ralse
End If
Else
MsgBox "오류: 이 통합문서는 저장되어있지 않습니다. 저장 후 다시 시도하십시오."
End If

Set FSO = Nothing
ThisWorkbook.Sheets(sSheetName).Select
Application.ScreenUpdating = True
End Sub

여기서 저장경로 바꾸려면 어디를 수정해야 할지 모르겠어요 ㅜㅜ

초보라서 다른분이 작성해논거 조금씩 수정하며 사용중입니다.