​​​​​​​مساعدة في شرح كود

[hayyan alaa]

السلام عليكم

 

هل من  الممكن المساعدة في شرح هذا الكود

و ارفق معه ملف الاكسل

 

Option Explicit

Sub my_sum_By_Chosen_Sheets()
    Dim s#, k%, t1%, t2%
    On Error GoTo Leave_me_Out

t1 = Sheets(Sheets("mn").Range("a15").Value).Index
t2 = Sheets(Sheets("mn").Range("b15").Value).Index
  For k = Application.Min(t1, t2) _
          To Application.Max(t1, t2)
    s = s + IIf(IsNumeric(Sheets(k).Range(Sheets("mn").Range("C15"))), _
    Sheets(k).Range(Sheets("mn").Range("C15")), 0)
  Next
    Sheets("mn").Range("d15") = s
    Exit Sub
Leave_me_Out:
   MsgBox "Check Please the Addrees And The Sheet's Names" & Chr(10) & _
   "In The Range(A15:C15)"
End Sub

 

 

 

sum_from_multy_sheet.xlsm