I didn't forget a parenthesis. I had a typo.

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

Underline key is next to the right paren.

This is copied from a module where it compiled fine.

Option Explicit

Sub efg()
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

--
Regard

"New to VBA" wrote
in message ...

Peo,
I tried with the added ), still not working. I'm using Excel Version X.
maybe that is the problem?


--
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