VB Code to copy without opening the file

Hello:

I have managed to solve the problem.
Have changed the last line of the above code to:

ActiveSheet.Range(colpaste1 & "5").Resize(RowsCnt, ColsCnt) = SrcRng.Value

And works great.

Riz Momin