Sub Worksheet_Change()
    
With Sheets("Служебная записка")
.Rows("38:39").Hidden = True
.Rows("42:43").Hidden = True

'Проверяем Сиротского
If .Cells(17, 4).Value = "начальнику ОРСА Сиротскому М.С.," Then
.Rows("38:39").Hidden = False
End If
If .Cells(18, 4).Value = "начальнику ОРСА Сиротскому М.С.," Then
.Rows("38:39").Hidden = False
End If
If .Cells(19, 4).Value = "начальнику ОРСА Сиротскому М.С.," Then
.Rows("38:39").Hidden = False
End If
If .Cells(17, 11).Value = "начальнику ОРСА Сиротскому М.С.," Then
.Rows("38:39").Hidden = False
End If
If .Cells(18, 11).Value = "начальнику ОРСА Сиротскому М.С.," Then
.Rows("38:39").Hidden = False
End If
If .Cells(19, 11).Value = "начальнику ОРСА Сиротскому М.С.," Then
.Rows("38:39").Hidden = False
End If

'Проверяем Чекалина
If .Cells(17, 4).Value = "начальнику ОРПО Чекалину Л.В.," Then
.Rows("42:43").Hidden = False
End If
If .Cells(18, 4).Value = "начальнику ОРПО Чекалину Л.В.," Then
.Rows("42:43").Hidden = False
End If
If .Cells(19, 4).Value = "начальнику ОРПО Чекалину Л.В.," Then
.Rows("42:43").Hidden = False
End If
If .Cells(17, 11).Value = "начальнику ОРПО Чекалину Л.В.," Then
.Rows("42:43").Hidden = False
End If
If .Cells(18, 11).Value = "начальнику ОРПО Чекалину Л.В.," Then
.Rows("42:43").Hidden = False
End If
If .Cells(19, 11).Value = "начальнику ОРПО Чекалину Л.В.," Then
.Rows("42:43").Hidden = False


End If
End With



With Sheets("Служебная записка")

.Rows("46:47").Hidden = True
.Rows("50:51").Hidden = True

'Проверяем Лужецкого
If .Cells(17, 4).Value = "начальнику КТО Лужецкому В.Н.," Then
.Rows("46:47").Hidden = False
End If
If .Cells(18, 4).Value = "начальнику КТО Лужецкому В.Н.," Then
.Rows("46:47").Hidden = False
End If
If .Cells(19, 4).Value = "начальнику КТО Лужецкому В.Н.," Then
.Rows("46:47").Hidden = False
End If
If .Cells(17, 11).Value = "начальнику КТО Лужецкому В.Н.," Then
.Rows("46:47").Hidden = False
End If
If .Cells(18, 11).Value = "начальнику КТО Лужецкому В.Н.," Then
.Rows("46:47").Hidden = False
End If
If .Cells(19, 11).Value = "начальнику КТО Лужецкому В.Н.," Then
.Rows("46:47").Hidden = False

End If

'Проверяем Смирнова
If .Cells(17, 4).Value = "начальнику ТО Смирнову М.Н.," Then
.Rows("50:51").Hidden = False
End If
If .Cells(18, 4).Value = "начальнику ТО Смирнову М.Н.," Then
.Rows("50:51").Hidden = False
End If
If .Cells(19, 4).Value = "начальнику ТО Смирнову М.Н.," Then
.Rows("50:51").Hidden = False
End If
If .Cells(17, 11).Value = "начальнику ТО Смирнову М.Н.," Then
.Rows("50:51").Hidden = False
End If
If .Cells(18, 11).Value = "начальнику ТО Смирнову М.Н.," Then
.Rows("50:51").Hidden = False
End If
If .Cells(19, 11).Value = "начальнику ТО Смирнову М.Н.," Then
.Rows("50:51").Hidden = False
End If
End With

With Sheets("Служебная записка")

.Rows("54:55").Hidden = True
.Rows("58:59").Hidden = True

'Проверяем Кондратьева
If .Cells(17, 4).Value = "начальнику ЭТО Кондратьеву Л.В.," Then
.Rows("54:55").Hidden = False
End If
If .Cells(18, 4).Value = "начальнику ЭТО Кондратьеву Л.В.," Then
.Rows("54:55").Hidden = False
End If
If .Cells(19, 4).Value = "начальнику ЭТО Кондратьеву Л.В.," Then
.Rows("54:55").Hidden = False
End If
If .Cells(17, 11).Value = "начальнику ЭТО Кондратьеву Л.В.," Then
.Rows("54:55").Hidden = False
End If
If .Cells(18, 11).Value = "начальнику ЭТО Кондратьеву Л.В.," Then
.Rows("46:47").Hidden = False
End If
If .Cells(19, 11).Value = "начальнику ЭТО Кондратьеву Л.В.," Then
.Rows("54:55").Hidden = False

End If

'Проверяем Хлынина
If .Cells(17, 4).Value = "начальнику ПНРиТО Хлынину М.В.," Then
.Rows("58:59").Hidden = False
End If
If .Cells(18, 4).Value = "начальнику ПНРиТО Хлынину М.В.," Then
.Rows("58:59").Hidden = False
End If
If .Cells(19, 4).Value = "начальнику ПНРиТО Хлынину М.В.," Then
.Rows("58:59").Hidden = False
End If
If .Cells(17, 11).Value = "начальнику ПНРиТО Хлынину М.В.," Then
.Rows("58:59").Hidden = False
End If
If .Cells(18, 11).Value = "начальнику ПНРиТО Хлынину М.В.," Then
.Rows("58:59").Hidden = False
End If
If .Cells(19, 11).Value = "начальнику ПНРиТО Хлынину М.В.," Then
.Rows("58:59").Hidden = False
End If
End With

End Sub