I ended up finally writing a macro that would do the trick:


'fromCell is found using a Cells.Find()
'toCell is assigned

Sub Fill(fromCell, toCell)
With toCell
.Value = fromCell.Value
.Interior.ColorIndex = fromCell.Interior.ColorIndex
.Interior.Pattern = fromCell.Interior.Pattern
End With
End Sub

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!