Just:
Sub OtherPages()
    WB1.DoSomething
    SH1.JumpRope
    SH2.EctEctEct
End Sub
As I said though, all of this is unnecessary.