Use VBA to select sheets sequentially in Excel

[quocphuoc]

How code to select two sheets "PL02-13-03" "PL02-14-03", then unselect two sheets "PL02-13-03" "PL02-14-03", aftter select two sheets "PL02-15-03" "PL02-16-03"..... Tks All/

 

[Kaper]

Use such code:

Sub test()
Dim current_sheet_no As Long
current_sheet_no = ActiveSheet.Index
Do
  Sheets(Array(current_sheet_no, current_sheet_no + 1)).Select

'  do what you need to do with these 2 sheets

  current_sheet_no = current_sheet_no + 2
Loop While current_sheet_no <= Sheets.Count - 1
MsgBox "end of workbook", vbInformation + vbOKOnly
End Sub