Prevent entry of invalid values using VBA in Microsoft Excel


Entries of invalid values in area A1:B6 are to be prevented, in case of an error a respective message box to be displayed.

Insert the following code in This Workbook module.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   If IsEmpty(Target) Then Exit Sub
   If Intersect(Target, Range("Calculating")) _
      Is Nothing Then Exit Sub
   var = Application.Sum(Range("Calculating"))
   If IsError(var) Then
      MsgBox "Please enter the correct value!"
      Target.Value = ""
   End If
End Sub

One thought on “Prevent entry of invalid values using VBA in Microsoft Excel

  1. I want to know more bout auto_open macro . Its not running in my excel20000 version, I want to know whether it works in excel2000 or there is a bug in my version.

Leave a Reply

Your email address will not be published. Required fields are marked *


You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>