VBA Loop and respective worksheets

[ItalianPlatinum]

Need some help or pointed in a direction to handle a roadblock I have on my VBA. See below:

in laymans terms I am setting a range, clearing the macro, running a macro with the set range, then repeating. The part I need to include is before going to the next range it needs to transfer it its respective sheet. That part I don't know how to map the range to its respective sheet.

Ranges are like this: A####, B####, and etc.
Sheets: A, B and etc.
So A#### with Sheet A and so forth

' Run loop for range
i = 1
Do Until Sheets("Loop").Range("FILTER").Offset(i, 0) = ""
FILTER = Sheets("Loop").Range("FILTER").Offset(i, 0)
Sheets("Security").Range("REQ") = FILTER
Call Clear
Call SECDIS
i = i + 1
Loop

Any help is warranted. i have 18 ranges. so it seems tedious and not very efficient to code that all out 18 times to accomplish.

 

[ItalianPlatinum]

Yes it sure is and did stumble on generic ways. With the loop I have a wild card though. I can't do like the attached because I am not always looking for A and if not there set to A. I will test out a few ideas will give the below a try and see if it works.

On Error Resume Next
    If Not Worksheets(SheetName).Name = WsCus.Range("FILTER").Offset(i, -1).Value Then Worksheets.Add.Name = WsCus.Range("FILTER").Offset(i, -1).Value
On Error GoTo 0

 

[ItalianPlatinum]

Yes it sure is and did stumble on generic ways. With the loop I have a wild card though. I can't do like the attached because I am not always looking for A and if not there set to A. I will test out a few ideas will give the below a try and see if it works.

On Error Resume Next
    If Not Worksheets(SheetName).Name = WsCus.Range("FILTER").Offset(i, -1).Value Then Worksheets.Add.Name = WsCus.Range("FILTER").Offset(i, -1).Value
On Error GoTo 0

this worked just for any future reference.