Then how about utilizing some proper syntax here, rather than create an unecessary column ...
<font face=Tahoma New> <SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> Range, m
m = WorksheetFunction.Max(Columns("D:D"))
<SPAN style="color:#00007F">Set</SPAN> r = Columns("D:D").Find(m, LookIn:=xlValues)
<SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> r <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN>
r.Select
MsgBox "Cell found in " & r.Address(0, 0)
<SPAN style="color:#00007F">Else</SPAN>
MsgBox "No value was found."
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN></FONT>