My problem has changed to getting a "Compile Error" on this line after adding the "Set" statement:
"Set qstart = Worksheets"
and without "Set", I get "Error 91 Object Variable or With Block not defined". Been on this one for better part of two days now.
If not a solution, I could use some suggestions
Sub QIND()
If Range("M7").Value = "True" Then ' M7 is a checkbox reference cell in "Checklist"
Call HideQIND ' To hide questions in FielBook
Worksheets("Checklist").Activate
ElseIf Range("M7").Value = "False" Then
Call UnHideQIND ' To unhide questions in FieldBook
Worksheets("Checklist").Activate
End If
End Sub
Sub HideQIND()
Dim qstart As Long 'Integer
Dim qend As Long 'Integer
Worksheets("FieldBook").Activate
Set qstart = Worksheets("FieldBook").Range("A:A").Find(what:="IND", after:=Range("A1"), searchdirection:=xlNext).Row
qend = Range("A:A").Find(what:="IND", after:=Range("A1"), searchdirection:=xlPrevious).Row 'left this statement alone until my error goes away or at least shifts
Worksheets("FieldBook").Rows("qstart:qend").EntireRow.Hidden = False
End Sub
Sub UnHideQIND()
Dim qstart As Integer 'Range ' Long 'Integer
Dim qend As Integer 'Range 'Long 'Integer
Worksheets("FieldBook").Activate
Set qstart = Worksheets("FieldBook").Range("A:A").Find(what:="IND", after:=Range("A1"), searchdirection:=xlNext).Row
qend = Range("A:A").Find(what:="IND", after:=Range("A1"), searchdirection:=xlPrevious).Row
Worksheets("FieldBook").Rows("qstart:qend").EntireRow.Hidden = True
End Sub
Bookmarks