¿Cómo creas una lista de valores de varias hojas?

Hola, voy a agradecer mucho si me ayudan, estoy usando este código para crear
una lista de las hojas de mi libro con su respectivo link, pero quiero saber si en vez del nombre de la hoja y link puedo crear una lista con el valor de una celda en especifico de cada una de las hojas de mi libro
Private Sub CommandButton2_Click()
Dim wrbLibro As Workbook
Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
Dim intFila, intColumna As Integer
Set wrbLibro = ActiveWorkbook
Set wrsHojaActiva = ActiveSheet
'en que fila/columna empezar la lista
intFila = 5
intColumna = 2
'el bucle repasa todas las hojas
For Each wsHoja In wrbLibro.Worksheets
'para excluir hoja de los links
If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
'crear links
If wsHoja.Name <> wrsHojaActiva.Name Then
'wrsHojaActiva.Hyperlinks.Add wrsHojaActiva.Cells(intFila, intColumna), "", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name
Range("a1").Value
intFila = intFila + 1
End If
ProxHoja:
Next wsHoja
End Sub
Muchas gracias por adelantado
Cesar d.