Tom forgot a parenthesis in this line

for each cell in sh2.Range("A2:C2" _

should be

for each cell in sh2.Range("A2:C2") _

--
Regards,

Peo Sjoblom

(No private emails please)


"New to VBA" wrote
in message ...

Tom,
Thanks for the advice. I tried as shown below, but I receive a compile
error,syntax error message. Any thoughts? Thanks.

Sub AddCells1()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim cell As Range
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
for each cell in sh2.Range("A2:C2" _
cell.Value = cell.Value + sh1.Cells(1,cell.column).Value
Next
End Sub


--
New to VBA
------------------------------------------------------------------------
New to VBA's Profile:
http://www.excelforum.com/member.php...o&userid=30032
View this thread: http://www.excelforum.com/showthread...hreadid=497191