7.ReferringToWorkSheets.vba

Sub MovingBetweenWorkSheet()
    Worksheets("Sheet3").Activate
End Sub

Sub MovingToChart()
    Charts("Chart2").Activate
End Sub

Sub MovingAnyWhere()
    'Sheets("Sheet2").Activate
    Sheets("Chart2").Activate
End Sub


Sub AnotherWay()
    Worksheets("Sheet3").Select
End Sub

Sub MultipleSheetSelection()
    Worksheets("Sheet6").Select False
    Worksheets("Sheet7").Select False
    Worksheets("Sheet8").Select False
    Worksheets("Sheet9").Select False
    Worksheets("Sheet10").Select False
End Sub



Sub ReferringToWorkSheetsByIndex()
    Worksheets("DailyWork1").Select
    Worksheets(4).Select
    Sheets(2).Select
End Sub
'在中文版本中的VBA里面，显示的是（名称），但是我们可以理解成是在后台显示的代号，跟前台显示的无关。

Sub UsingCustName()
    ws_DailyWork.Activate
End Sub