Offset Cell content VBA

Hi All,

I am looking for a vba to offset the cells.

The code I have currently is;

Sub CellChange() 
    Sheets("Figures Dashboard").Select 
    Range("C25:D28").Select 
    Range("C25:D28").Offset(0, 1).Select 
End Sub

This is only moving the selected cells across one, however - the content of the cells is what I wish to move so cell C25 has data pointing to another sheet cell A1 i.e. =Sheet1!$A$1 - can I edit this code so it alters the cell to reference B1, C1 etc....

Thanks