<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> clear1()<br><SPAN style="color:#007F00">'Use alt + F11 and Then Insert Menu and Module</SPAN><br><SPAN style="color:#007F00">'Copy this code</SPAN><br>Sheets("Sheet2").Range("B1:F1").ClearContents<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>