bkbri,
change
Set ColAValues=ActiveSheet.Range("A1:A" &
ActiveSheet.Range("A65536").End(xlUp).Row)
to
Set ColAValues=ActiveSheet.Range("A1:A" & _
ActiveSheet.Range("A65536").End(xlUp).Row)
to run the macro
from your worksheet
ToolsMacro(select the macro you want run and click run)
Cecil

"bkbri " wrote in message
...
Hi Tod,

I just tried the macro and I get this error message.

Compile Error
Syntax Error

Also this portion of your code is highlighted in red

Set ColAValues=ActiveSheet.Range("A1:A" &
ActiveSheet.Range("A65536").End(xlUp).Row)

These are the steps I took to create your macro

I went to Tools, Macro, Visual Basic Editor, Insert, Module and pasted
the code into the large white window and then pressed the play button.


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