This works thansk very much

"Oliver Ferns via OfficeKB.com" wrote:

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