Hi P45cal,

I have tested the as you suggested and getting the error as per attached snapshot.

" run time Error -2147023541 (8007054b)
Automation Error
The Specified domain either does not exist or could not be contacted."

and step where getting error now is "Set x = GetObject(ldapstr)"

And when I again check same file in my old machine then there is no error.
Could you please suggest further , how to solve this issue. I am basic VBA user so difficult to identify how to solve this.