Hi Lucas,
Basically, you would need to add another loop before this line
[VBA]
Set ws = w.Worksheets(1)

[/VBA]
where 1 would be replaced by a variable.