use the workbook_Open event. See Chip Pearson's page on events
http://www.cpearson.com/excel/events.htm

Private Sub Workbook_Open()
with Worksheets("Sheet1")
.Range("A1").Value = "Hello"
End With
End Sub

Place this in the thisworkbook module.
--
Regards,
Tom Ogilvy


"tpapaj " wrote in message
...
Please how to write macro, which fill cell A1 with text "Hello" when
open the xsl file?


---
Message posted from http://www.ExcelForum.com/