Thanks Peter, I commented out On Error GoTo None and On Error GoTo 0 and got
error code 1004 and the debugger highlighted .InputTitle = Empty.

So, I used your code which of course works like a dream, thank you for your
help.