フォルダを選択する

Sub フォルダを選択()
    Dim folder_TextBox As String
    Dim Title_Text As String
    Dim Default_Text As String
    
    Title_Text = "フォルダ指定"
    Default_Text = Worksheets("設定").Range("C2").Value
    Call folder_change(folder_TextBox, Title_Text, Default_Text)
    If folder_TextBox <> "" Then
        Worksheets("設定").Range("C2").Value = folder_TextBox
    Else
    End If
End Sub

Sub folder_change(ByRef folder_Text As String, ByVal Title_Text As String, ByVal Default_Text As String)
'    フォルダ選択
    With Application.FileDialog(msoFileDialogFolderPicker)  'フォルダ選択
        If Default_Text <> "" Then
            .InitialFileName = Default_Text 'デフォルトのフォルダを指定
        Else
        End If
        If Title_Text <> "" Then
            .Title = Title_Text
        Else
        End If
        If .Show = True Then
            folder_Text = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
End Sub