VBA Loop - Add sheet

[CROY1985]

Hi all

Just need a bit of a pointer with this loop i'm building. For the first instance of "Yes" i want to just use sheets.select (i.e drop whatever sheet(s) are selected), but then use sheets.select false, for the rest.

For j = 5 To 9


If Sheets("ReportList").Cells(I + 2, j).Value = "Yes" Then
Sheets(Sheets("ReportList").Cells(2, j).Value).Select False
End If


Next j

 

[Fluff]

Untested, but try

   If Sheets("ReportList").Cells(i + 2, j).Value = "Yes" Then
      x = x + 1
      If x = 1 Then
         Sheets(Sheets("ReportList").Cells(2, j).Value).Select
      Else
         Sheets(Sheets("ReportList").Cells(2, j).Value).Select False
      End If
   End If

 

[CROY1985]

Untested, but try

   If Sheets("ReportList").Cells(i + 2, j).Value = "Yes" Then
      x = x + 1
      If x = 1 Then
         Sheets(Sheets("ReportList").Cells(2, j).Value).Select
      Else
         Sheets(Sheets("ReportList").Cells(2, j).Value).Select False
      End If
   End If

Ahh perfect, thank you!

 

[Fluff]

You're welcome & thanks for the feedback