I have written the following code:

Private Sub Workbook_before close (Cancel as Boolean)

Dim D7 As String

If IsText(D7) Then
If IsEmpty(E7) Then
MsgBox "E7 is empty, please fill it"
End If

Cancel = True


End Sub

If cell D7 has text I want E7 to have text too, and if it doesn't
want the message box to pop up. I know the code that i have written i
correct, but

The problem is that it is telling me that the ISTEXT sub or function i
not defined. I am missing something but I can't figure out what it is


WHAT THE HECK IS IT TRYING TO TELL ME????!!!
I am SOOO confused and frustrated

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

Hi
ISTEXT is not a VBA function. Try
application.worksheetfunction.istext

--
Regards
Frank Kabel
Frankfurt, Germany


I have written the following code:

Private Sub Workbook_before close (Cancel as Boolean)

Dim D7 As String

If IsText(D7) Then
If IsEmpty(E7) Then
MsgBox "E7 is empty, please fill it"
End If

Cancel = True


End Sub

If cell D7 has text I want E7 to have text too, and if it doesn't I
want the message box to pop up. I know the code that i have written
is
correct, but

The problem is that it is telling me that the ISTEXT sub or function
is not defined. I am missing something but I can't figure out what
it is?


WHAT THE HECK IS IT TRYING TO TELL ME????!!!
I am SOOO confused and frustrated!


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

hi,
try declaring e7 as a string also or
change both D7 and E7 to Range("D7") and Range("E7").
changing the reference and you wont have to declare either
one.
since you seem to be talking about cell addresses, i
assume you are not in a loop.

-----Original Message-----
I have written the following code:

Private Sub Workbook_before close (Cancel as Boolean)

Dim D7 As String

If IsText(D7) Then
If IsEmpty(E7) Then
MsgBox "E7 is empty, please fill it"
End If

Cancel = True


End Sub

If cell D7 has text I want E7 to have text too, and if it
doesn't I
want the message box to pop up. I know the code that i
have written is
correct, but

The problem is that it is telling me that the ISTEXT sub
or function is
not defined. I am missing something but I can't figure
out what it is?


WHAT THE HECK IS IT TRYING TO TELL ME????!!!
I am SOOO confused and frustrated!


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

.

The code is far from correct, but hopefully the code below will help

Private Sub Workbook_beforeclose(Cancel As Boolean)
If Worksheets("Sheet1").Range("D7").Value < "" Then
If Worksheets("Sheet1").Range("E7").Value = "" Then
MsgBox "You must fill cell E7", vbOKOnly
Cancel = True
End If
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"jmorgs " wrote in message
...
I have written the following code:

Private Sub Workbook_before close (Cancel as Boolean)

Dim D7 As String

If IsText(D7) Then
If IsEmpty(E7) Then
MsgBox "E7 is empty, please fill it"
End If

Cancel = True


End Sub

If cell D7 has text I want E7 to have text too, and if it doesn't I
want the message box to pop up. I know the code that i have written is
correct, but

The problem is that it is telling me that the ISTEXT sub or function is
not defined. I am missing something but I can't figure out what it is?


WHAT THE HECK IS IT TRYING TO TELL ME????!!!
I am SOOO confused and frustrated!


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