Are you doing this with VBA or are you using VB6?