Naming and Selecting All Worksheets VBA

[rawrs]

Hi all.

Been at this for 5 hours....I can't find a way to name all my worksheets, then make a variable that would select them all. Speed and cleanliness in the code is very important to me, so any optimal or much better ways would be very appreciated. Here's my code:

Sub meow()    Dim count As Integer
    Dim i As Integer
    
    Dim dNames(1 To 6) As Variant
        items = Worksheets("Item Analysis").Activate
        analysis = Worksheets("Analysis").Activate
        manuf = Worksheets("Make").Activate
        carrier = Worksheets("Carrier Analysis").Activate
        gbCarrier = Worksheets("iPhoneCarrierGB").Activate
        gb = Worksheets("iPhoneGB").Activate
    
    Set all = ActiveWorkbook.Sheets(items, analysis, manuf, carrier, gbCarrier, gb)
    
    
End Sub

 

[rawrs]

do the sheet names match what your workbook has?

Yes, it all returns true when I msgbox. I'm not new to programming and I'm baffled by how hard this is.

 

[My Aswer Is This]

To select all sheets you can use this:

Sheets.Select

To do other tasks on all sheets why not do this:

Sub Fill_All_Sheets()
Dim i As Long

    For i = 1 To Sheets.Count
        Sheets(i).Range("A1:A10").Value = "Bob"
    Next
End Sub

 

[rawrs]

To select all sheets you can use this:

Sheets.Select

To do other tasks on all sheets why not do this:

Sub Fill_All_Sheets()
Dim i As Long

    For i = 1 To Sheets.Count
        Sheets(i).Range("A1:A10").Value = "Bob"
    Next
End Sub

Thank you so much. I realize that I asked for all sheets in the question, but I meant select some sheets.

Nonetheless, your answer gave me the information to get it working. Thank you

 

[My Aswer Is This]

OK

Thank you so much. I realize that I asked for all sheets in the question, but I meant select some sheets.

Nonetheless, your answer gave me the information to get it working. Thank you