2 Tabellen eine Dummi Frag bzgl. With or not With

Private Sub SpinButton1_SpinUp()
On Error Resume Next
If SpinButton1.Value = 6000 Then SpinButton1.Value = 1
Worksheets("Calc").Range("A3") = Worksheets("MinMax").Cells(SpinButton1.Value + 1, 1)
With Sheets("Planung")
.Calculate
End With
With Sheets("Calc")
.Calculate
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A3" Then
Worksheets("Calc").Range("F26") = _
Application.Match(Target, Worksheets("MinMax").Columns(1)) - 1
End If
End Sub