View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Cimjet[_3_] Cimjet[_3_] is offline
external usenet poster
 
Posts: 157
Default Require entry in one cell if data in another

Hi
Ignore the first one because of text overwrap
One more for you to try.
'You need to change the name of the
sheet if it's not "sheet1"

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim a As Range, b As Range, c As Range
Set a = Sheets("sheet1").Range("B17")
Set b = Sheets("sheet1").Range("i17")
Set c = Sheets("sheet1").Range("L17")
If a "" Then
If b = "" Or c = "" Then
MsgBox "You need to fill in the two cells i17 & L17"
Cancel = True
End If
End If
End Sub

HTH
Cimjet

wrote in message
...
I am trying to make it so that if there is ANY data in cell b17, then
there MUST be data entered in I17 and L17. Can anyone pleae help me
with this? I want these to be "beforeprint" events...