Hey all,
I am trying to pull header info from a sheet and put it into a destination sheet. The info is an alphanumeric part number. I am trying to put all part numbers that end in 2 in one cell, and all other part numbers in another (there are only two possible part numbers on my source sheet.)
I am having issues with the "For Each" part of my VBA:
Code:
For x = 1 To wkshtcount
Set sh = ThisWorkbook.Sheets(x + 1)
Set shdest = ThisWorkbook.Sheets(sh.name & (x + 1))
Set rn = sh.UsedRange
Set Names = sh.Range("A2:A" & Range("A1").End(xlDown).Row)
For Each name In Names
If name Like "*2" Then
shdest.Range("D7") = name
Else: shdest.Range("D8") = name
End If
Next name
Next x
Even when my source sheet has two part numbers, it only copies over one (in the right slot, though, so I know the "Like" portion of my code is working.)
I think the issue might be that it is not looping through Each name in Names. What could be the reason for this?