Dont allow blank

N

nowfal

First of all thanks to Mr.Frank and Mr.Ron for the quick reply, but
another problem arise
i have already one work sheet change module "( Private Sub
Worksheet_Change(ByVal Target As Range)"
in the same sheet , so how do i occupy the second one. please give some
idea about this.
nowfal
 
R

Ron de Bruin

Hi

Like this

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
MsgBox "You have changed A1"
End If

If Not Application.Intersect(Cells(Target.Row, 1) _
.Range("J1,K1,L1"), Target) Is Nothing Then
If Cells(Target.Row, "I") = "" Then
MsgBox " sorry the I column is empty"
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
End If
End If
End Sub
 
Top