Hi Tom,

I tried to get your solution to work ... I've too much respect to say
your solution is not correct. But working with XL97 SR2 you definitely
need to put

sige = Application.Match(1, Range("Sheet1!$A$1:$K$1"), 0)
instead of:
sige = Application.Match(1, "Sheet1!$A$1:$K$1", 0)

But it is working now!
Thanks a lot Bob and Tom!!!

Sige


"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***