How to get a cell property?

[snb]

Or:

Sub M_snb()
  For Each it In Cells.SpecialCells(-4123)
    For j = 1 To 4
      If it.Formula = Application.ConvertFormula(it.Formula, 1, 1, j) Then Exit For
    Next
    it.Formula = Application.ConvertFormula(it.Formula, 1, 1, 1 + j Mod 4)
  Next
End Sub