Pass Min(A:A) Value to Active-X TextBox

[jim may]

I have an incomplete Active-X Textbox above Row1 where I'd like for it to
read -- "Beginning 9/05/2011" (without quotes) - the 9/05/2011 value is the
MIN(A:A) date Value in my Column A; I can't seem to figure out how to do it.
Any help appreciated.
Jim

Excel Workbook
	A	B	C	D	E	F	G
1	Start Date	Start Time	Stop Date	Stop Time	Activity Name	FullName	Regular Hours (Non Leave)
2	09/06/11	11:46:00 AM	09/06/11	3:51:00 PM	In	Aldred, Amber	4.08
3	09/07/11	12:00:00 PM	09/07/11	1:20:00 PM	In	Aldred, Amber	1.33
4	09/09/11	2:13:00 PM	09/09/11	4:39:00 PM	In	Aldred, Amber	2.43
5	09/09/11	4:50:00 PM	09/09/11	5:16:00 PM	In	Aldred, Amber	0.43
6	09/12/11	5:30:00 PM	09/12/11	8:53:00 PM	In	Aldred, Amber	3.38
7	09/15/11	3:01:00 PM	09/15/11	4:14:00 PM	In	Aldred, Amber	1.22
8	09/16/11	12:00:00 PM	09/16/11	2:30:00 PM	In	Alisauskas, Joseph	2.5
9	09/05/11	8:46:00 AM	09/05/11	4:45:00 PM	In	Balkom, Lisa	7.98
10	09/06/11	9:08:00 AM	09/06/11	5:23:00 PM	In	Balkom, Lisa	8.25
Drop_Area

Excel 2007

 

[VoG]

Hi Jim. Try like this

Sub Jim()
With ActiveSheet
    .OLEObjects("TextBox1").Object.Value = "Beginning " & Format(WorksheetFunction.Min(.Range("A2:A1000")), "mm/dd/yyyy")
End With
End Sub