Hi Paul,

Perhaps you could adopt an approach like this:

'======================
Public Sub TestIt()

Dim RngInput As Range
Dim RngOutput As Range
Dim i As Long
Dim v As Double

Set RngInput = Sheets("Sheet3").Range("A1:A10")
Set RngOutput = Sheets("Sheet3").Range("C1:C10")

For i = 1 To RngInput.Cells.Count
If IsNumeric(RngInput(i)) Then
v = RngInput(i).Value
RngOutput(i) = v * (Application.Pi ^ 2)
End If
Next i

End Sub
'<<======================

---
Regards,
Norman



"Paul Hyett" wrote in message
...
Hi,

I wonder if you could help?

How do I go about taking data from a succession of cells in one
spreadsheet, inserting them one at a time into a formula in another
spreadsheet, and then putting the result of each calculation back into
the original spreadsheet in cells I specify?

Regards,
--
Paul Hyett, Cheltenham