redart
Board Regular
- Joined
- Oct 15, 2002
- Messages
- 246
- Office Version
- 2007
- Platform
- Windows
Hi,
The following code strips off the leading "=" sign from a row of formulas and pastes the remaining text so that it can be saved for reference. I'd like to modify this so that it pastes the results on succesive rows, rather than on the one row as it does now. Changing the range to a column reference didn't work. Thanks for any suggestions.
FirstFormula = Rows(1).SpecialCells(xlCellTypeFormulas)(1).Formula
With Range("A5:Z5")
.Value = Range("A1:Z1").Formula
.Replace Left(FirstFormula, 1), ""
End With
The following code strips off the leading "=" sign from a row of formulas and pastes the remaining text so that it can be saved for reference. I'd like to modify this so that it pastes the results on succesive rows, rather than on the one row as it does now. Changing the range to a column reference didn't work. Thanks for any suggestions.
FirstFormula = Rows(1).SpecialCells(xlCellTypeFormulas)(1).Formula
With Range("A5:Z5")
.Value = Range("A1:Z1").Formula
.Replace Left(FirstFormula, 1), ""
End With
