I'm having issues with the following code, after the value is pasted
into the second workbook I'd like to multiply the value by a constant,
can someone please help.

Sub loop7()
Dim i As Integer

Workbooks("Part List.xls").Activate

Range("E2").Select

intRowCount = Range("E2").CurrentRegion.Rows.Count - 1

For i = 1 To intRowCount

ActiveCell.Copy

Const diameter = 25.4
Const metric = 1000

Workbooks("Test1.xls").Sheets("Sheet1").Range("B1" ).PasteSpecial
Paste:=xlValues * diameter

ActiveCell.Offset(0, 2).Copy
Workbooks("Test1.xls").Sheets("Sheet1").Range("B2" ).PasteSpecial
Paste:=xlValues * metric

Next i

End sub


Thanks