Если еще актуально. Сделать стандартными средствами Excel это нельзя. Можно использовать макрос.Sub EnterNum()    Dim x, y As Integer    n = 0    x = ActiveCell.Row    y = ActiveCell.Column    CurrentSheet = ActiveSheet.Name    For Each Sheet In Sheets()        Sheet.Activate        Worksheets(CurrentSheet).Cells(x, y).Formula = "=" & ActiveSheet.Name & "!A1"        x = x + 1    NextEnd Sub