Indice con nombre de hoja y cantidad de una celda

Suponiendo que el nombre de la hoja se encuentre en col B y a partir de la fila 2, esta es la formula que luego debes arrastrar hacia abajo para completar el resto de las hojas:

=INDIRECTO(B2&"!$M$23")

Sdos y no olvides finalizar la consulta.

hola, Elsa.

No se como poner lo que me explicas. te mando la rubina que utilizo para crear el indice a ver si me puedes decir donde iría.

Gracias

Private Sub Worksheet_Activate()
Dim cHoja As Worksheet
Dim L As Long
L = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDICE"
.Cells(1, 1).Name = "Indice"
End With
For Each cHoja In Worksheets
If cHoja.Name <> Me.Name Then
L = L + 1
With cHoja
.Range("A1").Name = "Inicio" & cHoja.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:=" ", SubAddress:="Indice", TextToDisplay:="Volver al índice"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(L, 1), Address:=" ", SubAddress:="Inicio" & cHoja.Index, TextToDisplay:=cHoja.Name
End If
Next cHoja
End Sub

Me.Hyperlinks.Add Anchor:=Me.Cells(L, 1), Address:=" ", SubAddress:="Inicio" & cHoja.Index, TextToDisplay:=cHoja.Name

'aquí se agrega la formula
Me.Cells(L, 2).FormulaR1C1 = "=+INDIRECT(RC[-1]&""!$M$23"")"
End If
Next cHoja
End Sub

Hola de nuevo Elsa

No me funciona. Lo copio donde me dices y me sale #¡REF!.

no sé lo que estoy haciendo mal.

Gracias por tu paciencia

saludos

Te preparo el ejemplo. Dejame un mail o solicitalo al correo que podes tomar de mi sitio .

Sdos!

Hola Elsa

el mail mio:

[email protected]

saludos y gracias por tu interes