Private Sub SpinButton1_SpinDown()
myVAL = SpinButton1.Value
If myVAL = 3 Then myVAL = 4: SpinButton1.Value = 4
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.ChartTitle.Text = Range("$B$" & myVAL).Value
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=Range("C" & myVAL & ":Q" & myVAL)
Call Macro1
Range("T21").Select
ActiveSheet.Protect "aaaa", True, True, True
End Sub
Private Sub SpinButton1_SpinUp()
myVAL = SpinButton1.Value
If myVAL = 32 Then myVAL = 31: SpinButton1.Value = 31
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.ChartTitle.Text = Range("$B$" & myVAL).Value
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=Range("C" & myVAL & ":Q" & myVAL)
Call Macro1
Range("T21").Select
ActiveSheet.Protect "aaaa", True, True, True
End Sub
Sub Macro1()
'
' Macro1 Macro
'
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "='bbbb'!$C$3:$Q$3"
End Sub