Center function output

[Gavin Elliot]

I have a function but can't seem to figure out how to get the result to be centered within the cell.

Is it possible to get the output of this example function to be centered within the cell?

Function Add(a, b)
Add = a + b
With Selection.VerticalAlignment = xlCenter
End With
End Function

 

[rjwebgraphix]

With Selection
.VerticalAlignment = xlCenter
End With

However, you technically shouldn't center inside the function. The function should just return the result.

Function Add(a, b)

add = a + b

End Function

sub runadd()

dim a as long
dim b as long
a = cells(1, "A")
b = cells(1, "B")
cell(1, "C") = Add(a, b)
cell(1, "C").VerticalAlignment = xlCenter

end sub

or you could

cell(1, "C").Select
With Selection
.VerticalAlilgnment = xlCenter
End With