Calender Pop-up

[Graham Haughs]

I created a user form with a calender control in it and in the worksheet
put in the following code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Range("A1:A100"), Target) Is Nothing Then
UserForm1.Show
End If
End Sub
This works fine but when the calender appears it is in the centre of the
screen. I know this is probably being a bit picky but is there a way to make
it pop up just beside the cell where you are about to enter the date?
Grateful for any help.

Kind Regards
Graham Haughs
Turriff, Scotland

 

[John Wilson]

Graham,

Chip has some code on his web site that should be of help.

You can find it here:

http://www.cpearson.com/excel/FormPosition.htm

John

 

[Graham Haughs]

Thanks John, and Chip. I have been to site and now can position calender
perfectly.

Graham