Re: Check Worksheet Name and Select if Meets Criteria

On Aug 11, 8:17*am, ainbinder <aainbin...@gmail.com> wrote:
> Hi everyone, i have what i think is a very easy question. I'm trying
> to select all the worksheets in my workbook that start with the
> "Data". i wrote this vba code, and even though i put a watch on the
> left formula and it shows "Data" in the watch window, it never selects
> the sheet. Any help would be much appreciated!!!!
>
> Sub SelectCockpit()
> '
> ' Selects all tabs with cockpit in first 6 digits
>
> Dim wksSheet As Worksheet
>
> Sheets(1).Activate
> For Each wksSheet In Worksheets
> * * If Left(wksSheet.Name, 4) = "Data" Then
> * * * * wksSheet.Select
> * * End If
> Next wksSheet
> End Sub

Try this
Sub SelectCockpit()

Dim Datasheets() As String
Dim shtCount As Integer
For Each wkssheet In Worksheets
If Left(wkssheet.Name, 4) = "Data" Then
ReDim Preserve Datasheets(shtCount)
Datasheets(shtCount) = wkssheet.Name
shtCount = shtCount + 1
End If
Next wkssheet
Sheets(Datasheets).Select

End Sub