Hi,
I have written the following to open up a different user form when certain
cells are changed (The User answers "Y" to the question). This part is
working. My problem is when I reset the worksheet to the default values of
"N", the worksheet views this as a change and is popping up all the user
forms. I've been trying to add the first section (which isn't working), that
if any of the cells in the range b18:p28 are changed to "N", then do nothing.
I would appreciate any help... Leslie
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b14:p26").Cells = "N" Then Exit Sub
If Not Intersect(Target, Me.Range("g18:g26")) Is Nothing Then
With Target
frmBeltBuff.Show
End With
End If
If Not Intersect(Target, Me.Range("h18:h26")) Is Nothing Then
With Target
frmBevel.Show
End With
End If
End Sub
Bob Phillips - 22 Feb 2006 17:51 GMT
Don't get it.
You fire up a form if a value is entered in any og G18:G26, or any of
H18:H26. but what has B18:P28 got to do with it? Do you not want to fire the
form if the selected cell is N. If so then
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("g18:g26")) Is Nothing Then
If Target.Value <> "N" Then
With Target
frmBeltBuff.Show
End With
End If
ElseIf Not Intersect(Target, Me.Range("h18:h26")) Is Nothing Then
If Target.Value <> "N" Then
With Target
frmBevel.Show
End With
End If
End If
End Sub

Signature
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
> Hi,
>
[quoted text clipped - 24 lines]
>
> End Sub
Leslieac - 22 Feb 2006 19:31 GMT
Thanks so much. That seems to be working. The larger range of B18:P26 is
because I have that many more User Forms to create in that range. I was just
trying to combine 2 to see if it would work.
> Don't get it.
>
[quoted text clipped - 53 lines]
> >
> > End Sub