Private Sub ComboBox1_Change()
Plan1.TextBox1.Text = Me.ComboBox1.Value

End Sub




Private Sub CommandButton1_Click()
If Me.ComboBox1.ListIndex >= 0 Then
Plan1.TextBox1.Text = Me.ComboBox1.Value
End If
End Sub

Obrigado Klarc28, mas não é isso que queria, ou seja, a textbox está na planilha relatorio1 e eu queria que o valor da combobox1 do userform4 passasse o seu valor para a textbox1 na planilha quando mandasse imprimir.

Obrigado pela ajuda resolvi no evento em baixo quando mando imprimir

Sub CriaPDF()
    Dim SvInput As String
    SvInput = ThisWorkbook.Path & Application.PathSeparator & "Relatório.pdf"
        With ActiveSheet
        Folha33.TextBox1.Text = UserForm4.ComboBox1.Value
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
        End With
End Sub

Abraço,
RM