Reusing VBA Array - arrays

Question

I would like to reuse vSheetNamesTemp array.
It's collecting sheets with q* but I want to use it for other sheets like w*.
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDrawing = swModel
Dim vSheetNamesTemp As Variant
vSheetNamesTemp = swDrawing.GetSheetNames
removed = 0
For i = 0 To UBound(vSheetNamesTemp)
vSheetNamesTemp(i - removed) = vSheetNamesTemp(i)
SheetName = vSheetNamesTemp(i)
If Not SheetName Like "q*" Then
removed = removed + 1
End If
Next i
If (UBound(vSheetNamesTemp) - removed) >= 0 Then
ReDim Preserve vSheetNamesTemp(0 To (UBound(vSheetNamesTemp) - removed))
vSheetNames = vSheetNamesTemp
End If
End Sub

Answer 1

Try the next approach, please:
Create a variable on top of the module (declarations side):
Private vSheetNames As Variant
Copy your transformed Sub:
Sub main()
Dim arrCriteria As Variant, El As Variant
'Please, appropriately declare the used variables. I do not use Solidworks
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDrawing = swModel
vSheetNames = swDrawing.GetSheetNames
arrCriteria = Split("q*,w*,x*", ",") 'use here as many criteria you need
For Each El In arrCriteria
If UBound(vSheetNames) >= 0 Then
removeSh vSheetNames, El
End If
Next
End Sub
In the same module, copy the next function:
Private Function removeSh(vSheetNamesTemp As Variant, strCriteria As String)
Dim removed As Long, i As Long
removed = 0
For i = 0 To UBound(vSheetNamesTemp)
vSheetNamesTemp(i - removed) = vSheetNamesTemp(i)
If Not vSheetNamesTemp(i) Like strCriteria Then
removed = removed + 1
End If
Next i
If (UBound(vSheetNamesTemp) - removed) >= 0 Then
ReDim Preserve vSheetNamesTemp(0 To (UBound(vSheetNamesTemp) - removed))
vSheetNames = vSheetNamesTemp
End If
End Function
The code is not tested, but it should work, I think. Please test it and send some feedback.