Dave,

Thanks for your reply. I have fixed the problem. Your mention of
'running' the code triggered the solution. This code was originally run
as a VB script. I cut/pasted it into VBA as a FUNCTION - hence I cannot
modify a cell etc. Duh!!