Without being able to see your other code I can not tell you why this
would be called unexpectedly. Try making the switch to private (if
this function is ont intended to be called outside of this sheet or
modue) and let me know how it goes.

HTH...


Hi Jim,

Thanks for that.

I tried going 'private' with the function, which was in it's own module
with nothing else.

I then tried to run this code from a different module in the same
workbook...

Sub CopyCols()
Range("f2:h21").Select
Selection.Copy
Sheets("WEB QUERY").Select
Range("k2").Select
Selection.PasteSpecial paste:=xlPasteValuesAndNumberFormats
End Sub

The function was called at the Selection.PasteSpecial line.

Again the function looped seemingly infinitely, so I put in a counter in
the function and added the two extra lines to the above code...

Sub CopyCols()
testcount = 0
Range("f2:h21").Select
Selection.Copy
Sheets("WEB QUERY").Select
Range("k2").Select
Selection.PasteSpecial paste:=xlPasteValuesAndNumberFormats
MsgBox "there were " & testcount & " loops this time"
End Sub

On running this code again and again I got 467 loops then 263 loops and
then curiously got zero loops time after time.

I'm trying to reproduce the loops to see if I can pin down what triggers
the calling but am unable to at the minute.

I'll post on here if I come up with any sort of answer.

Is it possible to put the function code in the worksheet module to where it
pertains, so that it doesn't stray outside? Maybe on a Worksheet_Change
event?

Ron