کد ماکرو

سلام سیاوش عزیز
خدمت شما. نیاز است مراحل رو در یک سلول ذخیره کنیم:
Sub MultiStepMacro()
Dim StepNo As Integer

StepNo = Range(“A1”).Value

Select Case StepNo

Case 0
MsgBox “اجرای دستور اول”
Case 1
MsgBox “اجرای دستور دوم”
Case 2
MsgBox “اجرای دستور سوم”
Case Else
MsgBox “تمام مراحل انجام شد”
End Select

‘افزایش شماره مرحله برای اجرای بعدی
Range(“A1”).Value = StepNo + 1

End Sub