Hi Rufles,

Wasn't the answer you received at 20-02-2014 from kulasart at excelforum.pl enough? Try:

        Range(smthng).Offset(0, 5).Activate
        s.Speak Range(smthng).Offset(0, -2).value
        s.Speak "Ready! Scan the Full box quantity."