Steve,

Thanks for your help. Code as follows:

Dim avRange As Range
Dim findrange As Range
Dim testRange As Range
Dim FTDRange As Range
Dim FTD As Range
Dim i As Long
Dim LastColumn As Integer
Dim vl As Long
Dim ftd2range As Range
'Application.ScreenUpdating = False


'ActiveSheet.Range.SpecialCells(xlCellTypeLastCell ).Select

Set FTD = Cells.Find("FTD Sum of Spread")
Set findrange = Cells.Find("FTD Sum of
Spread").End(xlToRight).End(xlToRight).End(xlToRig ht) _
.End(xlToRight).End(xlToLeft)
Set FTDRange = Range(findrange, findrange.End(xlUp))
FTDRange.Select
Selection.Copy
FTDRange.Offset(0, 1).PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
FTDRange(1, 2).Value = "%FTD"
Set FTDRange = Selection

With FTDRange
.Resize(.Rows.Count - 1).Offset(1, 0).Select
Set FTDRange = Selection
End With

For i = 1 To FTDRange.Cells.Rows.Count
FTDRange.Cells(i).Value = (FTDRange.Cells(i).Offset(0,
-1).Value / findrange.Value) * 100
i = i + 1
Next i


Regards,

Adrian



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/