Har du funderat på så kallade 3D formler? Dvs du anger att du vill summera samma område i flera blad. Det funkar inte med alla slags formler, men en summa klarar den av. T,ex
=SUMMA(Blad1:Blad7!C4:E15)
=SUMMA(kalle:anna!C4:E15)
Maskin översatt -flera Kalkyl blad:
https://support.office.com/sv-se/article/skapa-en-3d-referens-till-samma-cell-område-i-flera-kalkyl-blad-40ca91ff-9dcb-4ad1-99d2-787d0bc888b6
annars, olika varianter av skript (förenklade)
Sub Makro999()
Dim ws As Worksheet
'Loppar igenom samtliga blad i boken
For Each ws In ActiveWorkbook.Sheets
ActiveWorkbook.Names.Add Name:=ws.Name, RefersTo:=ws.Range("C4:E15")
Next ws
End Sub
Eller, om du vill hoppa över det första bladet
Sub Makro911()
Dim i As Integer
For i = 2 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(i)
ActiveWorkbook.Names.Add Name:=.Name, RefersTo:=.Range("C4:E15")
End With
Next i
End Sub
Eller bestämma start/slut
Sub Makro112()
Dim i As Integer, iStart As Integer, iSlut As Integer
iStart = ActiveWorkbook.Sheets("kalle").Index
iSlut = ActiveWorkbook.Sheets("anna").Index
For i = iStart To iSlut
With ActiveWorkbook.Sheets(i)
ActiveWorkbook.Names.Add Name:=.Name, RefersTo:=.Range("C4:E15")
End With
Next i
End Sub