Private Sub Workbook_Open()
Dim WSheet As Worksheet
For Each WSheet In Worksheets
WSheet.Activate
Range("A1").Select
Next
End Sub
Range("A2").Select
Sheet is ODD Range("B3").Select
For Each WSheet In Worksheets
WSheet.Activate
n = WSheet.Index
If n Mod 2 = 0 Then
Range("A2").Select
Else
Range("B3").Select
End If
Next