Don't quote the replies.

add this line

Application.CutCopyMode = False

before this line

wbkSource.Close 0