Like this?
<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> GoToLast()<br> <SPAN style="color:#00007F">With</SPAN> Worksheets(Worksheets.Count)<br> .Visible = <SPAN style="color:#00007F">True</SPAN><br> .Activate<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>