This one worked:
Set sht = Worksheets(ShtNames(i))

Thank you very much!
Bunch of really really smart guys here!