You are welcome

Thanks for feedback and rep. Yes it's funny that a "small" thing like this could cause so much problems. I was so fascinated by this I spent most of today indoors (just what "folkhälsamyndigheten" recommends by the way) tinkering with it.

If you are running your macro for a number of values you can shorten the run time by adding these two lines:

Application.ScreenUpdating = False
Dim y As Integer
and
Application.CutCopyMode = False
Application.ScreenUpdating = True
Alf