Sub frm2()
Dim name As String, formula As String, dl As String, sh As String
Dim i As Integer
' Получаем имя ячейки
    name = ActiveCell.name
' Убираем имя листа
    name = Mid(name, InStr(name, "!"))
' Формируем формулу
    formula = ""
    dl = "="
    sh = ActiveWindow.ActiveSheet.name
    For i =  1  To ActiveWindow.Application.Sheets.Count
        If ActiveWindow.Application.Sheets(i).name <> sh Then
            formula = formula + dl + ActiveWindow.Application.Sheets(i).name + name
            dl = "+"
        End If
    Next i
' Запиываем формулу
    ActiveCell.formula = formula
End Sub

Sub frm3()
Dim name As String, formula As String, dl As String, sh As String
Dim i As Integer
    name = ActiveCell.Address
    name = "!" + name
    formula = ""
    dl = "="
    sh = ActiveWindow.ActiveSheet.name
    For i =  1  To ActiveWindow.Application.Sheets.Count
        If ActiveWindow.Application.Sheets(i).name <> sh Then
            'If ActiveWindow.Application.Sheets(i).Tab.ColorIndex = xlColorIndexNone Then
                formula = formula + dl + ActiveWindow.Application.Sheets(i).name + name
                dl = "+"
            'End If
        End If
    Next i
    ActiveCell.formula = formula
End Sub