Put it in a module sheet in VBA
1) Alt F11
2) Insert Module from VBA menu
3) Paste Code in VBA sheet
4) From worksheet you can execute by using menu Tools - Macro - Macro


"faureman via OfficeKB.com" wrote:

I'm sorry to trouble you again...

Where do I paste this script in order to be able to execute it?


Joel wrote:
Sub compare_sheets()

With Sheets("Source")
RowCount = 1
Do While .Range("A" & RowCount) < ""
Company = .Range("A" & RowCount)
With Sheets("Original")
Set c = .Columns("A").Find(what:=Company, _
LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.EntireRow.Interior.ColorIndex = 4
End If
End With
RowCount = RowCount + 1
Loop
End With
End Sub

I have combined two files into one file. I used copy/paste to enter the
contents of file 2 into a new sheet on the original file. I now have a single
[quoted text clipped - 15 lines]

How can I do this?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200805/1