heenchi


TRy

Dim pTabell As Range
Dim id As Range

Set pTabell = Range("A6:H370")

If Union(Range("G27"), pTabell).Address = pTabell.Address Then
For Each id In pTabell <----ERROR Remove column(1)
If id.FormulaR1C1 = Range("G27").FormulaR1C1 Then
id.Offset(0, Range("G27").Column - 1).Value = Range("G27").Value
End If
Next id
End If


HTH

Charle

--
Message posted from http://www.ExcelForum.com