You probably missed the last line of code when you pasted it into VBA

It should end with a line that says
End Sub

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia