Public Function Mgl(ByVal wksname1 As String, ByVal wksname2 As String, ByVal wksname3 As String, ByVal wksname4 As String) As Long
Dim wk1 As Worksheet
Dim wk2 As Worksheet
Dim wk3 As Worksheet
Dim wk4 As Worksheet
Dim row As Integer
Dim col As Integer
Dim sum As Long
Set wk1 = ThisWorkbook.Worksheets(wksname1)
Set wk2 = ThisWorkbook.Worksheets(wksname2)
Set wk3 = ThisWorkbook.Worksheets(wksname3)
Set wk4 = ThisWorkbook.Worksheets(wksname4)
row = ActiveCell.row
col = ActiveCell.Column
sum = wk1.Cells(row, col) + wk2.Cells(row, col) + wk3.Cells(row, col) + wk4.Cells(row, col)
Mgl = sum
End Function