Excel VBA get starting position of cell informula

Hi
   I  was given the following VBA code to find the precedents in a formula
  Is there a way to replace the cell position of each cell in the formula
  So If the precedent is A1 you replace that in the the formula with {1,1}
 but you don't affect another precedent with a cell address of eg "A11"
   Dim Cell As Range    
     For Each Cell In [A1].Precedents
         Debug.Print Cell.Address
     Next Cell