After a lot of fiddling, I managed to get the control to appear but the method does not make sense. I explain what I did in case someone might be able to explain why it works. After the statement to make the control visible, I added a time delay using (with Hr and Min current time and Sec 5 seconds more):
waitTime = TimeSerial(Hr, Min, Sec)
Application.Wait waitTime
Any thoughts on why this works and perhaps therefore what is stopping the visible statement working by itself?