select case for multiple selections

**ammartino44** · 05-18-2015, 05:00 PM

Hello. Can I use select case below to just select worksheets 1:4, without referring to title? Thanks.

For Each wks In ActiveWorkbook.Worksheets
    Select Case wk.Name
        Case "Sheet 1", "TOTAL", "FA", "FW"
    Case Else
        wks.Range("A222:A261").Copy
    End Select
Next ws

**romperstomper** · 05-18-2015, 05:14 PM

If you just want sheets 1 to 4, change the loop:

For n = 1 to 4
        ActiveWorkbook.Worksheets(n).Range("A222:A261").Copy
Next n

select case for multiple selections

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

select case for multiple selections

Re: select case for multiple selections

Thread Information

Users Browsing this Thread

Similar Threads

omit menu items via data validation for multiple selections and multiple menus when select

[SOLVED] multiple if or case select

How can I select multiple selections of pages for one print job

Select whole row of multiple cell selections

Select case / case is, multiple arguments

Bookmarks

Bookmarks

Posting Permissions