private sub calendar1_click() activecell.value = calendar1.value calendar1.v**ible = false end sub
private sub worksheet_selectionchange(byval target as range) if target.column = 3 then with me.calendar1 .left = activecell.left + activecell.columnwidth + 60 .top = activecell.top .v**ible = true end with end if end sub