Help with sheet code

[ASBeard]

Good morning. I have an excel file and I have written code to display a default value in approximately 400 cells. The code works correctly, however whenever I several of these cells simultaneously it causes a critical error and the excel file closes. I have placed an image of just some of the code as the mini-sheet I don't think will copy inside visual basic (if this is incorrect, please let me know). If you need to see all of the code, please don't hesitate to let me know. And just so you know, the code is entered in the 'sheet' for which the default values are to be placed and not in a module. I am hoping that there is something I can do to simplify my code to prevent the critical error. Thank you in advance for any help you can provide!

 

[Jeffrey Mahoney]

Oops, let me get you a change

 

[Jeffrey Mahoney]

Remember, this is a sample. You'll need to finish the rest. I forgot to set the minor rng to the intersect

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  Dim cell As Range
 
  Application.EnableEvents = False
 
  Set rng = Intersect(Range("B27:B32"), Target)
  If Not rng Is Nothing Then
    For Each cell In rng
      If cell.Value = "" Then cell.Value = "(Enter Custom Label)"
    Next cell
  End If
 
  Set rng = Intersect(Range("F10"), Target)
  If Not rng Is Nothing Then
    For Each cell In rng
      If cell.Value = "" Then cell.Value = "MRN"
    Next cell
  End If
 
  Set rng = Intersect(Range("F11"), Target)
  If Not rng Is Nothing Then
    For Each cell In rng
      If cell.Value = "" Then cell.Value = "Visit Number"
    Next cell
  End If
 
  Application.EnableEvents = True
 
' . . . . . .

End Sub

 

[ASBeard]

Thank you so much... so far so good but obviously I have a lot of code to add so it might be tomorrow before I can get back and let you know if it worked for all the code but its looking good so far. I cannot thank you enough!!

 

[ASBeard]

Jeff I think you got it. I was able to clear the same number of cells that previously caused the fatal error. Thank you again sir!! Take care.