How to Rewrite these Code?

[hce]

Hi Norman

Thanks for your advice but the problem with your advice is that beside
specifying the range, I also need to specify the worksheet... In fact,
have tried your suggestion before I post my queries...

I would also like to consult Harald but I don't know how I can get i
touch with him...

Anyway I really appreciate your help... I will just have to keep o
trying...

Cheer

 

[Norman Jones]

Hi HCE,

I also need to specify the worksheet.

Try inserting:

ActiveWorkbook.Sheets("MySheet").Activate

immediately before Harald's code line:

Set Sourcebok = ActiveWorkbook


Change MySheet to the requisite sheet name.