Set tr = Columns(2).Find(what:="Bank Transactions", LookIn:=xlFormulas, lookat:=xlWhole, searchformat:=False)
Set br = Columns(2).Find(what:="Uncleared Bank Transactions", LookIn:=xlFormulas, lookat:=xlWhole, searchformat:=False)
'Range(tr, br).EntireRow.Hidden = True
Range(tr, br.Offset(-1)).EntireRow.Hidden = True 'doesn't hide the row Uncleared Transactions.
'Range(tr, br).EntireRow.Hidden = Not (Range(tr, br).EntireRow.Hidden) 'toggles hidden/unhidden
Play around with ONE of the last three statements.