Olá, Não entendi direito. Você quer centralizar o conteúdo da sua seleção, por exemplo o Texto contido em A1 Ficar centralizado Verticalmente? Por favor explique melhor.

Opa, não, quero centralizar somente a visualização na tela, não o conteúdo como você mencionou. Digamos, selecionei 1 célula, quero essa célula fique centralizada verticalmente no meio da tela.

Ainda acho que não é bem o que você precisa, pois isto só se aplica a células fora da área de visualização, usei Z1 como exemplo, pode dar uma estudada neste código e ver se consegue adaptar a sua necessidade. O código centraliza o conteúdo da Célula "não visivel" Z1 no centro da tela.

Sub ScrollCentre()
Dim ColVisible As Single

ColVisible = ActiveWindow.VisibleRange.Columns.Count
Application.Goto Reference:=Range("Z1"), scroll:=True
ActiveWindow.SmallScroll ToLeft:=ColVisible  2

End Sub

Obrigado, mas não é bem isso que eu queria, acabei solucionando meu problema de uma forma bem diferente, mas que tem o mesmo resultado para mim. Mas valeu pela ajuda.