Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) _
As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) _
As Long
Private Sub CommandButton6_Click()
    Dim objFSO As New FileSystemObject
    Set myDIR = Application.FileDialog(msoFileDialogFolderPicker)
    With myDIR
        .Title = "Choose Directory"
        .AllowMultiSelect = False
        If .Show <> -1 Then
            Exit Sub
        End If
        DIR_Selected = .SelectedItems(1)
    End With
    test_form_1.DIR_Name.Text = DIR_Selected    'The file path
    t = MsgBox("Select Yes to Enter a File name or use the system generated one ?", vbYesNo)
    If t = 6 Then
    test_form_1.Quote_Name.Text = "Arbor Quote " & Format(Date, "dd-mm-yy")
    Else
        test_form_1.Quote_Name.Text = InputBox("Enter the file name to use for the Word Document", vbOKOnly)    'The file name
    End If
End Sub
Private Sub Create_Quote_CMD_Click()
' Maim Code goes here...
End Sub
Private Sub OptionButton6_Click()
test_form_1.Schedule_Selecion.Value = test_form_1.OptionButton1.Caption
End Sub
Private Sub OptionButton7_Click()
test_form_1.Schedule_Selecion.Value = test_form_1.OptionButton2.Caption
End Sub
Private Sub OptionButton8_Click()
test_form_1.Schedule_Selecion.Value = test_form_1.OptionButton8.Caption
End Sub
Private Sub OptionButton9_Click()
test_form_1.Schedule_Selecion.Value = test_form_1.OptionButton9.Caption
End Sub
Private Sub Schedule_Selecion_Change()
    Select Case Schedule_Selecion
    Case "Schedule 1"
        test_form_1.OptionButton6.Value = True
    Case "Schedule 2"
        test_form_1.OptionButton7.Value = True
    Case "Schedule 3"
        test_form_1.OptionButton8.Value = True
    Case "Schedule 4"
        test_form_1.OptionButton9.Value = True
    End Select
End Sub
Private Sub UserForm_Initialize()
    test_form_1.Contract_Name.Text = ""
    test_form_1.DIR_Name.Text = ""
    Schedule_Selecion.AddItem "Schedule 1"
    Schedule_Selecion.AddItem "Schedule 2"
    Schedule_Selecion.AddItem "Schedule 3"
    Schedule_Selecion.AddItem "Schedule 4"
    Schedule_Selecion.Text = "Schedule 1"
    test_form_1.OptionButton6 = True
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
        Create_Quote_CMD.Enabled = True
    Else
        Create_Quote_CMD.Enabled = False
    End If
End Sub
Private Sub ComboBox1_Change()
Dim rngColor As Range
Dim ws As Worksheet
Set ws = Worksheets("Form Options")
For Each rngColor In ws.Range("$B#5:$B9")
Me.Schedule_Selection.AddItem rngColor.Value
Next rngColor
End Sub
Private Sub CommandButton1_Click()
   Dim oCtrl As Control
    For Each oCtrl In Frame1.Controls
        If TypeName(oCtrl) = "OptionButton" Then
            If oCtrl.Value = True Then
                t = oCtrl.Caption
                Exit For
            End If
        End If
    Next
Call CommandBut_Click
End Sub
Private Sub CommandButton3_Click()
    With ActiveSheet
        .Shapes("Rectangle 2").Visible = True
    End With
Unload Me
End Sub
Private Sub OK_Click()
Unload Me
End Sub
Private Sub CommandButton5_Click()
About.Show
End Sub
Sub Macro23()
test_form_1.Show
End Sub
Sub macro24()
About.Show
End Sub
Sub CommandBut_Click()
    Dim PageNumber As Integer
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim FileToOpen As String
    Dim strPath As String
    FileToOpen = "test.docx"
    strPath = "C:\Contracts\"
    'the next line looks to a cell to decide what page number to scroll to
    PageNumber = Cells(2, 7).Value
    On Error Resume Next
    Set wrdApp = GetObject(, "Word.Application")
    If wrdApp Is Nothing Then
        Set wrdApp = CreateObject("Word.Application")
        Set wrdDoc = wrdApp.Documents.Open(strPath & FileToOpen)
    Else
        On Error GoTo notOpen
        Set wrdDoc = wrdApp.Documents(FileToOpen)
        GoTo OpenAlready
notOpen:
        Set wrdDoc = wrdApp.Documents.Open(strPath & FileToOpen)
    End If
OpenAlready:
    On Error GoTo 0
    With wrdApp
        .Visible = True
        B_Count = .ActiveDocument.Bookmarks.Count
        Dim bmk As Bookmark
        Dim msg As String
        For Each bmk In ActiveDocument.Range.Bookmarks
            msg = msg & bmk.Name & vbCr
        Next bmk
        If B_Count > 1 Then
            For I = 1 To B_Count
                a = B_Count
                b = .ActiveDocument.Bookmarks
            Next I
        End If
        ' Set rngStart = ActiveDocument.Bookmarks("Start").Range
        ' Set rngEnd = ActiveDocument.Bookmarks("End").Range
        ' ActiveDocument.Range(rngStart.Start, rngEnd.End).Select
        ' ActiveDocument.Range(rngStart.Start, rngEnd.End).Delete
        '.Selection.Goto What:=1, Which:=2, Name:=PageNumber
    End With
    yy = ((test_form_1.DIR_Name.Text) & test_form_1.Contract_Name.Text)
    wrdDoc.SaveAs (test_form_1.Contract_Name.Text)
    wrdDoc.Close
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub