Any thoughts or some direction on how I can clean this up? I know it's a bit all over the place right now.
Sub StatusCode()
Sheet22.Visible = xlSheetVisible
Sheet22.Select
Dim sshh As Worksheet
For Each sshh In Worksheets
If sshh.Name <> "UPDATE IN PROGRESS" Then...