Here is part of the code I am trying to run. You can see the line I commented on where the subroutine stops running (just ends)
dados.Activate unProtect_sheet