V[g\t̎̎gĂ閼OłG[

{j[uv́uO̊Ǘv̖OSč폜ĂG[Ȃ̂
\ɂȂĂ閼OƂłB\ȂO\VBAł

    '\ɂȂĂ閼O\
    For Each nm In ThisWorkbook.Names
        If nm.Visible = False Then
            nm.Visible = True
            count = count + 1
        End If
    Next nm
