Ya you probably need to remove the IF.... This line <If InStr(1, computer, "wlap" ,VBTextcompare) > 0 Then> This applies only to my company as wlap is contained in the naming standard.... It can be removed altogether
Also remove the end if!
Cheers Lloyd