Looks correct.
Unfortunately, there is no syntax check when I write air code. <g
Jim Cone


"MikeZz"
wrote in message
After Further Review, I think I figured out the problem...

Set WB = xlApp.Open(FileName)
should be
Set WB = xlApp.Workbooks.Open(FileName)