Hi,
Go to the ThisWorkbook class module and enter the following code...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.Sheets(1).Range("$A$2").Value = "" Then
MsgBox "You have not entered a value in cell A2 on the first sheet!"
''whatever message you want
Let Cancel = True
End If
End Sub
Hth,
Oli
--
Message posted via
http://www.officekb.com