VBA Script not getting trigger for automatic calculation

Dear Experts,

I am using the below script in the combobox for go to the selected worksheet and hide non active worksheets but some time it triggers automatic calculation and go to the selected worksheet and sometimes not and incase if not triggers automatically then i do click on calculate now. Is it possible to fix this error.

Private Sub ComboBox1_Change()
For X = 1 To Sheets.Count
    Sheets(X).Visible = xlSheetVisible
Next
For X = 1 To Sheets.Count
    If Sheets(X).name <> ComboBox1 Then
        Sheets(X).Visible = 2
    End If
Next
Application.GoTo Sheets(ComboBox1.Value).[a1], True

End Sub

Request to you kindly do help me out.

Many thanks and kind regards,

Neilesh