You can qualify all the pieces:

Sub dural()
With Worksheets("Sheet4")
..Range("D4") = .Range("E4") * .Range("F4")
End With
End Sub

--
Gary''s Student - gsnu200808


"Tdp" wrote:

Thanks for that J.
I assume if it`s in sheet4 then I write
Worksheets("Sheet4").Range("D4") = Range("E4")*Range("F4")
?
--
Tdp


"JLatham" wrote:

Range("D4") = Range("E4")*Range("F4")


"Tdp" wrote:

How do I write
D4=E4*F4
as a vb code
--
Tdp