Private Sub ScrollBar1_Change()
'a Ideia é essa userform manipular a sheet e que o valor que possa variar livremente entre 1600 e 1850
'ScrollBar1.Min = UserForm1.TextBox1
With ScrollBar1
    .Min = UserForm1.TextBox1
    .Max = 1850
    .LargeChange = 50
    .SmallChange = 1
    '.Value = serForm1.TextBox1U
End With

Sheets(1).Range("A1").Value = ScrollBar1.Value
UserForm1.TextBox1 = Sheets(1).Range("A1")
End Sub

Neste código só consigo fazer o valor subir usando o scrollbar, no entando quando aperto a seta para baixo para reduzir, este não abaixa. Percebi que tem haver com o .min que estou usando, porém se eu não utilizar esse comando o valor mínimo na hora de mexer na scrollbar vai ser a que foi estipulada, e tem que ser o exibido que está na planilha.

Basicamente seria uma temperatura, em que essa temperatura devo conseguir variar entre 1600ºC a 1850ºC. Mas, digamos que eu parei de mexer nas setas em um valor tipo 1740ºC então na hora de recomeçar ele deve estar nesse valor, o que não acontece se eu estipular um valor fixo minimo de 1600ºC. E esse valor que é exibido na Useform deve refletir em na planilha na celula A1.

Deve ser alguma coisa muito simples, alguém poderia me dar uma luz por gentileza?

Att,

Luis

Segue a resolução.

Private Sub UserForm_Initialize()
    With UserForm1
        With .ScrollBar1
            .Min = 1600
            .Max = 1850
            .LargeChange = 50
            .SmallChange = 1
            '.Value = UserForm1.TextBox1
        End With
        DisableUFEvents = True
        .TextBox1 = ThisWorkbook.Sheets(1).Range("A1").Text
        DisableUFEvents = False
    End With
End Sub
Dim DisableUFEvents As Boolean

Private Sub ScrollBar1_Change()
    If DisableUFEvents Then Exit Sub
    DisableUFEvents = True
    Me.TextBox1.Text = Me.ScrollBar1.Value
    DisableUFEvents = False
End Sub

Private Sub TextBox1_Change()
    If DisableUFEvents Then Exit Sub
    DisableUFEvents = True
    Me.ScrollBar1.Value = Val(Me.TextBox1.Text)
    DisableUFEvents = False
End Sub