Select sheets based on cell value & ignores empty cell with VBA

[pedovolia]

I want to select multiple sheets at once by refering from range A1 to A6. Below code works just fine if all cell(A1:A6) contain a valid sheet name. However, this code will crash if there is empty or blank cell in between A1:A6. Is there any way to ignore those empty cell in vba?

Sub Select_Macro1()

Dim ary As Variant
   ary = Application.Transpose(Range("A1:A6").Value)
   Worksheets(ary).Select

End Sub

 

[Fluff]

Hi & welcome to MrExcel.
You could use

   ary = Filter(Evaluate("transpose(if(A1:A6<>"""",A1:A6))"), False, False)

to eliminate blank cells

 

[pedovolia]

Very much thank you, MrExcel Fluff...It works perfectly. My question has been answered in 16 minutes after I posted this thread, really amazed with respond lighting speed. Really appreciate it...

 

[Fluff]

You're welcome & thanks for the feedback.