Hiding rows based on the value of data in a column

[Cliffork]

I use an excel sheet to take data on instruments I calibrate. There are three different types of instruments that I calibrate, so I have certain denominators that tell them apart, and thus tell what lines I need to test for this particular unit.

I'm trying to make it so that cell V3 reads if the instruments serial number contains a D, and if it does, I want it to automatically hide rows 43-48 (and others once I'm done creating the workflow)

I'm trying to do this by making V43-V48 show 0 if V3 is FALSE, and 1 if TRUE. I have code that will hide all rows with a 0 in column V.

The problem I'm having now though, is that the code seems to have made undo/redo unusable, which is pretty annoying. The row hiding works fine though.

I would like to either A. fix the problem of not being able to undo anymore, or write new code to meet the same goal in a different way. Suggestions?

Here is my VBA code and a mini-sheet.

Private Sub Worksheet_Calculate()
'hides/unhides HCH gases from the final inspection sheet. V3 is true if it is an HCH
Dim c As Range
Application.EnableEvents = False
For Each c In Range("V1:V200")

If c.Value = "0" Then
Rows(c.Row & ":" & c.Row).EntireRow.Hidden = True
Else
Range(c.Row & ":" & c.Row).EntireRow.Hidden = False
End If

Next
Application.EnableEvents = True
End Sub

cal form test.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V
1	Envision Final Inspection and Repairs Checklist
2	Date:																				Barometric?	TRUE
3	SN:	d																			D Unit?	TRUE
4	RMA:	0500-
5	Tech:
6
7
8	Yes	No	General Inspection Points
9			Battery life indicator working?			Number of Battery Bars:
10			Does the unit appear to charge when plugged in?
11			Has the firmware been upgraded to 1.31?
12			Have the PCB screws been tightened down?
13			Does the bluetooth connection work with a Nomad?
14			Is the Luer partical filter in good condition?
15
16	Yes	No	Pressure Related Inspection Points
17			Does the entire meter pass a pressure test?
18
19			Pressure Inspection
20			Please check the pressure readings in the Pressure Calibration screen.
21
22			Zeroes					Pressure Readings
23				Low	High				Low	High
24			System					System
25			Static					Static
26			Differental					Differential
27	Yes	No
28			Do all of the pressure sensors read correctly and hold a vacuum?
29			Does the Impact Port hold a vacuum?
30	X		Does the Barometric Pressure Sensor read correctly at room pressure?							ENV		Testo		difference
31										''Hg	mbar	mbar	''Hg	0.0
32		Gas Readings									0.0		0.0
33		Please check gas qualities with the meter in the analyze screen.
34				CH4 %	CO2 %	O2 %	Bal %
35	20.9 O2 Reading						100
36	99.99 N2 Reading						100
37	50/35% Reading						100
38	15/15 Reading						100
39	40/60 Reading						100
40	100 CO2 Reading						100
43																						1
44				H2 %	CO ppm	H2S ppm	Bal %															1
45	2% H2 Reading						100															1
46	50% H2 Reading						100															1
47	1500ppm CO Reading						100															1
48	500ppm H2S Reading						100															1
Final Insp.

Cell Formulas
Range	Formula
V2	V2	=OR(IF(ISNUMBER(SEARCH("B", B3)), TRUE, FALSE),IF(ISNUMBER(SEARCH("D", B3)), TRUE, FALSE))
V3	V3	=IF(ISNUMBER(SEARCH("D",B3)),TRUE,FALSE)
B3	B3	=('Customer Info'!B15)
B4	B4	=('Customer Info'!B13)
A30	A30	=IF(AND(N31>-2,N31<2),"X","")
B30	B30	=IF(AND(N31>-2,N31<2),"","X")
C30	C30	=IF(ISNUMBER(SEARCH("TRUE",V2)),"Does the Barometric Pressure Sensor read correctly at room pressure?", "")
J30	J30	=IF(ISNUMBER(SEARCH("TRUE",V2)),"ENV", "")
J31	J31	=IF(ISNUMBER(SEARCH("TRUE",V2)),"''Hg", "")
L30	L30	=IF(ISNUMBER(SEARCH("TRUE",V2)),"Testo", "")
L31	L31	=IF(ISNUMBER(SEARCH("TRUE",V2)),"mbar", "")
N30	N30	=IF(ISNUMBER(SEARCH("TRUE",V2)),"difference", "")
N31	N31	=IF(ISNUMBER(SEARCH("TRUE",V2)),L32-(K32-J33), "")
K31	K31	=IF(ISNUMBER(SEARCH("TRUE",V2)),"mbar", "")
K32	K32	=IF(ISNUMBER(SEARCH("TRUE",V2)),J32*33.8639,"")
M31	M31	=IF(ISNUMBER(SEARCH("TRUE",V2)),"''Hg", "")
M32	M32	=IF(ISNUMBER(SEARCH("TRUE",V2)),L32/33.8639, "")
G35:G40,G45:G48	G35	=100-SUM(D35:F35)
V43	V43	=IF(V3=TRUE,1,0)
V44	V44	=IF(V3=TRUE,1,0)
V45	V45	=IF(V3=TRUE,1,0)
V46	V46	=IF(V3=TRUE,1,0)
V47	V47	=IF(V3=TRUE,1,0)
V48	V48	=IF(V3=TRUE,1,0)

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
B30	Expression	=$V$2=FALSE	text	NO
D48	Cell	contains a blank value	text	NO
D48	Cell Value	between 95 and 105	text	NO
D48	Cell Value	<95	text	NO
D48	Cell Value	>105	text	NO
E48	Cell	contains a blank value	text	NO
E48	Cell Value	between 0 and 0.1	text	NO
E48	Cell Value	>0.02	text	NO
E48	Cell Value	<-0.02	text	NO
D47	Cell	contains a blank value	text	NO
D47	Cell Value	between 0 and 0.1	text	NO
D47	Cell Value	>0.02	text	NO
D47	Cell Value	<-0.02	text	NO
F46:F48	Cell Value	>0.1	text	NO
F46:F48	Cell	contains a blank value	text	NO
F46:F48	Cell Value	between 0 and 0.1	text	NO
F45	Cell Value	>0.1	text	NO
D45:F45	Cell	contains a blank value	text	NO
F45	Cell Value	between 0 and 0.1	text	NO
D45:E45	Cell Value	>16.5	text	NO
D45:E45	Cell Value	<13.5	text	NO
D45:E45	Cell Value	between 13.5 and 16.5	text	NO
D46:E46,E47	Cell	contains a blank value	text	NO
E47	Cell Value	between 95 and 105	text	NO
E47	Cell Value	<95	text	NO
E46	Cell Value	<57	text	NO
E46	Cell Value	>63	text	NO
D46	Cell Value	<37	text	NO
D46	Cell Value	>43	text	NO
E47	Cell Value	>105	text	NO
E46	Cell Value	between 57 and 63	text	NO
D46	Cell Value	between 37 and 43	text	NO
D40	Cell	contains a blank value	text	NO
D40	Cell Value	between 0 and 0.1	text	NO
D40	Cell Value	>0.1	text	NO
D40	Cell Value	<0	text	NO
F39:F41	Cell	contains a blank value	text	NO
F40	Cell Value	>0.1	text	NO
F40	Cell Value	<-0.1	text	NO
F39	Cell Value	>0.1	text	NO
F39	Cell Value	<-0.1	text	NO
F39	Cell Value	<20.7	text	NO
F39	Cell Value	>21.1	text	NO
F39	Cell Value	between 20.7 and 21.1	text	NO
F40	Cell Value	between 0 and 0.1	text	NO
A30	Expression	=ISBLANK($J$32)	text	NO
B30	Expression	=$V$2=TRUE	text	NO
A30:B30	Expression	=$V$2=TRUE	text	NO
A30:B30	Expression	=$V$2=TRUE	text	NO
N30	Expression	=$V$2=TRUE	text	NO
L32,J32	Expression	=$V$2=TRUE	text	NO
J30:M32	Expression	=$V$2=TRUE	text	NO
B9	Expression	=IF($A$9:$B$9,"X","")	text	NO
N31	Cell	contains a blank value	text	NO
N31	Cell Value	=0	text	NO
N31	Cell Value	between -2 and 2	text	NO
N31	Cell Value	<-2	text	NO
D35:F38	Cell	contains a blank value	text	NO
F37	Cell Value	>0.1	text	NO
F37	Cell Value	<-0.1	text	NO
F36	Cell Value	>0.1	text	NO
F36	Cell Value	<-0.1	text	NO
D35:E36,F38,D36:F36	Cell Value	between 0 and 0.1	text	NO
D35:E36	Cell Value	>0.02	text	NO
F38	Cell Value	>0.1	text	NO
F38	Cell Value	<0	text	NO
E37	Cell Value	>35.3	text	NO
J24:J26,I25:I26,E24:E26,D25:D26	Cell	contains a blank value	text	NO
I26	Cell Value	>4.53	text	NO
I26	Cell Value	<4.47	text	NO
J26	Cell Value	>20.1	text	NO
J26	Cell Value	<19.9	text	NO
J26	Cell Value	between 19.9 and 20.1	text	NO
I26	Cell Value	between 4.47 and 4.53	text	NO
I25	Cell Value	<-4.53	text	NO
I25	Cell Value	>-4.47	text	NO
I25	Cell Value	between -4.47 and -4.53	text	NO
J24:J25	Cell Value	between -99 and -101	text	NO
D25:D26,E26	Cell Value	<-0.1	text	NO
D25:D26,E26	Cell Value	>0.1	text	NO
D25:D26,E26	Cell Value	between -0.1 and 0.1	text	NO
E24	Cell Value	between -0.65 and 0.65	text	NO
E25	Cell Value	between -0.65 and 0.65	text	NO
E24:E25	Cell Value	<-0.65	text	NO
E24:E25	Cell Value	>0.65	text	NO
D39:E39,D41,E40	Cell	contains a blank value	text	NO
E40	Cell Value	between 98 and 102	text	NO
E40	Cell Value	<98	text	NO
E39	Cell Value	<59.5	text	NO
E39	Cell Value	>60.5	text	NO
D39	Cell Value	<39.5	text	NO
D39	Cell Value	>40.5	text	NO
E40	Cell Value	>102	text	NO
E39	Cell Value	between 59.5 and 60.5	text	NO
E37	Cell Value	<34.7	text	NO
D38:E38	Cell Value	>15.3	text	NO
D38:E38	Cell Value	<14.7	text	NO
F35:F36	Cell Value	<20.7	text	NO
F35:F36	Cell Value	>21.1	text	NO
D37	Cell Value	<49.7	text	NO
D37	Cell Value	>50.3	text	NO
D38:E38	Cell Value	between 14.7 and 15.3	text	NO
F35:F36	Cell Value	between 20.7 and 21.1	text	NO
D35:E36	Cell Value	<-0.02	text	NO
F37	Cell Value	between 0 and 0.1	text	NO
E37	Cell Value	between 34.7 and 35.3	text	NO
D37	Cell Value	between 49.7 and 50.3	text	NO
J24:J25	Cell Value	<-101	text	NO
D39	Cell Value	between 39.5 and 40.5	text	NO
N31	Cell Value	>2	text	NO
J24:J25	Cell Value	>-99	text	NO

Cells with Data Validation
Cell	Allow	Criteria
K32	Whole number	between (M32-K32)-2 and (M32-K32)+2
L32	Any value
D24:J26	Any value
B28:B30	Whole number	between 1 and 2
B17	Whole number	between 101 and 102
B9:B14	Whole number	between 101 and 102
I9	List	='Drop Down lists'!$D$1:$D$8
B5:C5	List	='Drop Down lists'!$A$1:$A$7

 

[Cliffork]

I made an easier to view version since the mini sheet makes my formatting look horrible. It just uses column "i" in this version to make it all closer

Book2
	A	B	C	D	E	F	G	H	I
1	Date:							Barometric?	TRUE
2	SN:	d						D Unit?	TRUE
3	RMA:	0500-
4	Tech:
5
6
7		Gas Readings
8
9				CH4 %	CO2 %	O2 %	Bal %
10	20.9 O2 Reading						100
11	99.99 N2 Reading						100
12	50/35% Reading						100
13	15/15 Reading						100
14	40/60 Reading						100
15	100 CO2 Reading						100
16	100 CH4 Reading						100
17	11% O2 Reading						100
18									1
19				H2 %	CO ppm	H2S ppm	Bal %		1
20	2% H2 Reading						100		1
21	50% H2 Reading						100		1
22	1500ppm CO Reading						100		1
23	500ppm H2S Reading						100		1
Sheet1

Cell Formulas
Range	Formula
I1	I1	=OR(IF(ISNUMBER(SEARCH("B", B2)), TRUE, FALSE),IF(ISNUMBER(SEARCH("D", B2)), TRUE, FALSE))
I2	I2	=IF(ISNUMBER(SEARCH("D",B2)),TRUE,FALSE)
B3	B3	=('[cal form test.xlsm]Customer Info'!B12)
G10:G17,G20:G23	G10	=100-SUM(D10:F10)
I18	I18	=IF(I2=TRUE,1,0)
I19	I19	=IF(I2=TRUE,1,0)
I20	I20	=IF(I2=TRUE,1,0)
I21	I21	=IF(I2=TRUE,1,0)
I22	I22	=IF(I2=TRUE,1,0)
I23	I23	=IF(I2=TRUE,1,0)

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
D23	Cell	contains a blank value	text	NO
D23	Cell Value	between 95 and 105	text	NO
D23	Cell Value	<95	text	NO
D23	Cell Value	>105	text	NO
E23	Cell	contains a blank value	text	NO
E23	Cell Value	between 0 and 0.1	text	NO
E23	Cell Value	>0.02	text	NO
E23	Cell Value	<-0.02	text	NO
D22	Cell	contains a blank value	text	NO
D22	Cell Value	between 0 and 0.1	text	NO
D22	Cell Value	>0.02	text	NO
D22	Cell Value	<-0.02	text	NO
F21:F23	Cell Value	>0.1	text	NO
F21:F23	Cell	contains a blank value	text	NO
F21:F23	Cell Value	between 0 and 0.1	text	NO
F20	Cell Value	>0.1	text	NO
D20:F20	Cell	contains a blank value	text	NO
F20	Cell Value	between 0 and 0.1	text	NO
D20:E20	Cell Value	>16.5	text	NO
D20:E20	Cell Value	<13.5	text	NO
D20:E20	Cell Value	between 13.5 and 16.5	text	NO
D21:E21,E22	Cell	contains a blank value	text	NO
E22	Cell Value	between 95 and 105	text	NO
E22	Cell Value	<95	text	NO
E21	Cell Value	<57	text	NO
E21	Cell Value	>63	text	NO
D21	Cell Value	<37	text	NO
D21	Cell Value	>43	text	NO
E22	Cell Value	>105	text	NO
E21	Cell Value	between 57 and 63	text	NO
D21	Cell Value	between 37 and 43	text	NO
F17	Cell	contains a blank value	text	NO
F17	Cell Value	between 10.8 and 11.2	text	NO
F17	Cell Value	<10.8	text	NO
F17	Cell Value	>11.2	text	NO
D17:E17	Cell	contains a blank value	text	NO
D17:E17	Cell Value	between 0 and 0.1	text	NO
D17:E17	Cell Value	>0.02	text	NO
D17:E17	Cell Value	<-0.02	text	NO
D15	Cell	contains a blank value	text	NO
D15	Cell Value	between 0 and 0.1	text	NO
D15	Cell Value	>0.1	text	NO
D15	Cell Value	<0	text	NO
E16	Cell	contains a blank value	text	NO
E16	Cell Value	between 0 and 0.1	text	NO
E16	Cell Value	>0.1	text	NO
E16	Cell Value	<0	text	NO
F14:F16	Cell	contains a blank value	text	NO
F15	Cell Value	>0.1	text	NO
F15	Cell Value	<-0.1	text	NO
F14	Cell Value	>0.1	text	NO
F14	Cell Value	<-0.1	text	NO
F16,F14	Cell Value	between 0 and 0.1	text	NO
F16	Cell Value	>0.1	text	NO
F16	Cell Value	<0	text	NO
F14	Cell Value	<20.7	text	NO
F14	Cell Value	>21.1	text	NO
F14	Cell Value	between 20.7 and 21.1	text	NO
F15	Cell Value	between 0 and 0.1	text	NO
D10:F13	Cell	contains a blank value	text	NO
F12	Cell Value	>0.1	text	NO
F12	Cell Value	<-0.1	text	NO
F11	Cell Value	>0.1	text	NO
F11	Cell Value	<-0.1	text	NO
D10:E11,F13,F11	Cell Value	between 0 and 0.1	text	NO
D10:E11	Cell Value	>0.02	text	NO
F13	Cell Value	>0.1	text	NO
F13	Cell Value	<0	text	NO
E12	Cell Value	>35.3	text	NO
D14:E14,D16,E15	Cell	contains a blank value	text	NO
D16	Cell Value	between 98 and 102	text	NO
D16	Cell Value	<98	text	NO
E15	Cell Value	between 98 and 102	text	NO
E15	Cell Value	<98	text	NO
E14	Cell Value	<59.5	text	NO
E14	Cell Value	>60.5	text	NO
D14	Cell Value	<39.5	text	NO
D14	Cell Value	>40.5	text	NO
D16	Cell Value	>102	text	NO
E15	Cell Value	>102	text	NO
E14	Cell Value	between 59.5 and 60.5	text	NO
E12	Cell Value	<34.7	text	NO
D13:E13	Cell Value	>15.3	text	NO
D13:E13	Cell Value	<14.7	text	NO
F10:F11	Cell Value	<20.7	text	NO
F10:F11	Cell Value	>21.1	text	NO
D12	Cell Value	<49.7	text	NO
D12	Cell Value	>50.3	text	NO
D13:E13	Cell Value	between 14.7 and 15.3	text	NO
F10:F11	Cell Value	between 20.7 and 21.1	text	NO
D10:E11	Cell Value	<-0.02	text	NO
F12	Cell Value	between 0 and 0.1	text	NO
E12	Cell Value	between 34.7 and 35.3	text	NO
D12	Cell Value	between 49.7 and 50.3	text	NO
D14	Cell Value	between 39.5 and 40.5	text	NO

 

[Fluff]

As soon as VBA makes any changes to a sheet, including hiding/unhiding rows, you will loose the undo stack.
So you either use VBA & loose the undo, or you do it manually & keep the undo.

 

[Cliffork]

As soon as VBA makes any changes to a sheet, including hiding/unhiding rows, you will loose the undo stack.
So you either use VBA & loose the undo, or you do it manually & keep the undo.

That can't be true. I have a dozen other VBA codes in this same workbook and I've always been able to undo until I added this one today. See below.

This exact sheet has code that hides cells in the next sheet tab, it just didn't seem to want to work on rows in the same sheet.

If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "H63" Then
With Sheets("Cal Form")
If Target.Value = "x" Or Target.Value = "X" Then
.Rows(3).Hidden = True
.Rows(4).Hidden = True
.Rows(5).Hidden = False
.Rows(6).Hidden = False
Else
.Rows(6).Hidden = True
.Rows(5).Hidden = True
.Rows(4).Hidden = False
.Rows(3).Hidden = False
End If
End With
End If

 

[Fluff]

Is that in a calculate event?

 

[Cliffork]

Is that in a calculate event?

No it is in a change event, is it just the calculate event that prevents the undo?

 

[Fluff]

is it just the calculate event that prevents the undo?

Nope, that code wipes the undo stack when I run it & change the value in H63

 

[Cliffork]

Nope, that code wipes the undo stack when I run it & change the value in H63

In my backup copy of the older version, this is the full VBA code, and the entire mini sheet posted below. It works fine for me.
Not sure if maybe it is different because it is changing something on a different sheet?

Private Sub Worksheet_change(ByVal Target As Range)


If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "K78" Then
With Sheets("Repair Summary")
If Target.Value = "x" Or Target.Value = "X" Then
.Rows(15).Hidden = True
.Rows(16).Hidden = False
Else
.Rows(15).Hidden = False
.Rows(16).Hidden = True
End If
End With
End If


If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "H59" Then
With Sheets("Cal Form")
If Target.Value = "x" Or Target.Value = "X" Then
.Rows(3).Hidden = True
.Rows(4).Hidden = True
.Rows(5).Hidden = False
.Rows(6).Hidden = False
Else
.Rows(6).Hidden = True
.Rows(5).Hidden = True
.Rows(4).Hidden = False
.Rows(3).Hidden = False
End If
End With
End If


End Sub

v1.02.06.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L
1	Envision Final Inspection and Repairs Checklist
2	Date:
3	SN:	0
4	RMA:	0500-
5	Tech:
6
7
8	Yes	No	General Inspection Points
9			Battery life indicator working?			Number of Battery Bars:
10			Does the unit appear to charge when plugged in?
11			Has the firmware been upgraded to 1.31?
12			Have the PCB screws been tightened down?
13			Does the bluetooth connection work with a Nomad?
14			Is the Luer partical filter in good condition?
15
16	Yes	No	Pressure Related Inspection Points
17			Does the entire meter pass a pressure test?
18
19			Pressure Inspection
20			Please check the pressure readings in the Pressure Calibration screen.
21
22			Zeroes					Pressure Readings
23				Low	High				Low	High
24			System					System
25			Static					Static
26			Differental					Differential
27	Yes	No
28			Do all of the pressure sensors read correctly and hold a vacuum?
29			Does the Impact Port hold a vacuum?
30		X
31
32		Gas Readings
33		Please check gas qualities with the meter in the analyze screen.
34				CH4 %	CO2 %	O2 %	Bal %
35	20.9 Reading						100
36	99.99 N2 Reading						100
37	50 / 35 Reading						100
38	15/15 Reading						100
39	40/60 Reading						100
40	100 CO2 Reading						100
41	100 CH4 Reading						100
43
44	Yes	No
45			Does the unit pass an O2 intrusion test?
46
47
48			Flow Test
49			The flow count when pulling against 138" of vacuum
50
51
52			The amount of vacuum the pump was able to pull against before the alarm:
53
54
55			Which alarm was given?
56
57
58	Please check in the utilities screen the following
59	Factory Calibration Date					←Update to Zoho(C2)		•
60	Meter Temperature
61	Firmware Version
63	List Meter Error Conditions
64
65	Yes	No
66			Are the pressure sensors still reading close to 0" without pressure being applied?
67			Have the G and E command outputs on Terraterm been captured?							40°F
70			Did the customer approve XXX thermister calibration?
71
72		Old Serial #		New Serial #
73	CH4
74	CO2
75	O2
76	Batt.
77
78	Solution(EEW's description):										•
79
80	Please ensure the following is included with the meter:			0
81
82
83		Closed Meter Inspection Points								Checked
84		Run a pressure test
85		Check to make sure pressure sensors read correctly
86		See if gas sensors are in their ranges
87		Does the meter still appear to charge?
88		Are the Void stickers installed on the meter?
89
90		Notes:
91
92		Tech Signature:					Date:
Final Insp.

Cell Formulas
Range	Formula
B3	B3	=('Customer Info'!B15)
B4	B4	=('Customer Info'!B13)
A30	A30	=IF(AND(N31>-2,N31<2),"X","")
B30	B30	=IF(AND(N31>-2,N31<2),"","X")
C30	C30	=IF(ISNUMBER(SEARCH("yes",V30)),"Does the Barometric Pressure Sensor read correctly at room pressure?", "")
J30	J30	=IF(ISNUMBER(SEARCH("TRUE",V30)),"ENV", "")
J31	J31	=IF(ISNUMBER(SEARCH("TRUE",V30)),"''Hg", "")
L30	L30	=IF(ISNUMBER(SEARCH("TRUE",V30)),"Testo", "")
L31	L31	=IF(ISNUMBER(SEARCH("TRUE",V30)),"mbar", "")
K31	K31	=IF(ISNUMBER(SEARCH("TRUE",V30)),"mbar", "")
K32	K32	=IF(ISNUMBER(SEARCH("TRUE",V30)),J32*33.8639,"")
G35:G41	G35	=100-SUM(D35:F35)
C71	C71	=IF(ISNUMBER(SEARCH("X",'Final Insp.'!A70)),"REMINDER: Print the thermister certification to PDF in the customers thermister folder.","")
D80	D80	='Customer Info'!B20
D82	D82	=IF(ISNUMBER(SEARCH("Waste Management",'Customer Info'!B3)),"REMINDER: WM meters ship on our account with 2-day shipping","")
D90	D90	=IF(ISNUMBER(SEARCH("Waste Management",'Customer Info'!B3)),"REMINDER: Send temperature probe certification.","")

 

[Cliffork]

In my backup copy of the older version, this is the full VBA code, and the entire mini sheet posted below. It works fine for me.
Not sure if maybe it is different because it is changing something on a different sheet?

Private Sub Worksheet_change(ByVal Target As Range)


If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "K78" Then
With Sheets("Repair Summary")
If Target.Value = "x" Or Target.Value = "X" Then
.Rows(15).Hidden = True
.Rows(16).Hidden = False
Else
.Rows(15).Hidden = False
.Rows(16).Hidden = True
End If
End With
End If


If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "H59" Then
With Sheets("Cal Form")
If Target.Value = "x" Or Target.Value = "X" Then
.Rows(3).Hidden = True
.Rows(4).Hidden = True
.Rows(5).Hidden = False
.Rows(6).Hidden = False
Else
.Rows(6).Hidden = True
.Rows(5).Hidden = True
.Rows(4).Hidden = False
.Rows(3).Hidden = False
End If
End With
End If


End Sub

Nope, that code wipes the undo stack when I run it & change the value in H63

I should mention too, that if I put an X in cell H63 I cannot undo the X, but if I type hello in cell H64 I am able to undo that. That is an important distinction as well.

 

[Cliffork]

In case anyone else looks at this and needs an answer, I got it to work, albeit not quite in the prettiest way. For some reason my other code only works when hiding rows in a different sheet. I can still use undo on any cells except the cell my code calls out as the target address.

Private Sub Worksheet_change(ByVal Target As Range)
' hides rows 43-48 on the final inspection page when V3 is false
If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "V3" Then
With Sheets("Final Insp.")
If Target.Value = "TRUE" Then
.Rows(43).Hidden = False
.Rows(44).Hidden = False
.Rows(45).Hidden = False
.Rows(46).Hidden = False
.Rows(47).Hidden = False
.Rows(48).Hidden = False
Else
.Rows(43).Hidden = True
.Rows(44).Hidden = True
.Rows(45).Hidden = True
.Rows(46).Hidden = True
.Rows(47).Hidden = True
.Rows(48).Hidden = True
End If
End With
End If

End Sub