Sub AddListBox()
With ActiveSheet.ListBoxes.Add(314.25, 51.75, 63, 246.75)
.Select
With Selection
.ListFillRange = "MyListData"
.LinkedCell = "$G$3"
End With
End With
End Sub

"a94andwi" wrote:


Hello.

I have a problem I don't know how to solve.
I want my workbook to write the current day in cell A1 when I save my
workbook.
Is there a built in function for this or how do I write it in VBA?

/Anders


--
a94andwi
------------------------------------------------------------------------
a94andwi's Profile: http://www.excelforum.com/member.php...o&userid=21077
View this thread: http://www.excelforum.com/showthread...hreadid=384312