'it work ok ,It may need some thing
Public Function HorAlignment(Rng)
Select Case Rng
Case -4108: HorAlignment = "Center"
Case -4131: HorAlignment = "Left"
Case -4152: HorAlignment = "Right"
End Select
End Function
Public Function VerAlignment(Rng)
Select Case Rng
Case -4108: VerAlignment =...