Цикл 

For Each w In Workbooks
w.Activate
If w.Name = "D:\NameBook.xls" Then
................ 
Exit For
End If
MsgBox "29.w.Name  = " & w.Name
Next w 

НЕ ИСПОЛЬЗОВАТЬ , т.к. оно указано в строке
If w.Name = "D:\NameBook.xls" Then