Valor de Celda en páginas de una hoja de excel

Tengo una macro en la que el pie de página proviene del valor de una celda, sin embargo, quiero que cada página de la hoja activa, jale diferentes celdas, ya que en la misma hoja hay 4 páginas, osea necesito jalar al pie de página 4 diferentes celdas por página.

Sub CellInFooterPage1()
With ActiveSheet
.PageSetup.RightFooter = "&""Calibri Style,Bold Italic""&28" & Range("A116").Value
End With
End Sub