<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2652.35">
<TITLE>slighty OT - Excel code problem</TITLE>
</HEAD>
<BODY>
<BR>
<P><FONT SIZE=2 FACE="Arial">Hi</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">Can anyone tell me why this either of these snippets of code should suddenly stop working? They were fine yesterday but refuse to work on any pc now, which is a touch annoying, as you might imagine...</FONT></P>
<P><FONT SIZE=2 FACE="Arial">Private Sub CommandButton1_Click()</FONT>
<BR><FONT SIZE=2 FACE="Arial">'TRANSPOSE</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Range("AA1:AL208").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Selection.Copy</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Sheets("DATA_OUTPUT").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Range("A6").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Selection.PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=True</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Range("A6").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Application.CutCopyMode = False</FONT>
<BR><FONT SIZE=2 FACE="Arial"> ActiveWorkbook.Save</FONT>
<BR><FONT SIZE=2 FACE="Arial">End Sub</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">Private Sub CommandButton2_Click()</FONT>
<BR><FONT SIZE=2 FACE="Arial">'CLEAR</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Range("a6:K211").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Selection.ClearContents</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Sheets("DATA_OUTPUT").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Range("A4:IV17").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Selection.ClearContents</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Sheets("DATA_EDIT").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Range("A6:l211").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Selection.ClearContents</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Sheets("DATA_INPUT").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> Range("A6").Select</FONT>
<BR><FONT SIZE=2 FACE="Arial"> ActiveWorkbook.Save</FONT>
<BR><FONT SIZE=2 FACE="Arial">End Sub</FONT>
</P>
<BR>
<BR>
<P><FONT SIZE=2 FACE="Arial">Jon Tydda</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">IT Support Technician</FONT>
</P>
<BR>
<BR>
<P><FONT SIZE=2 FACE="Arial">ALcontrol Technichem</FONT>
<BR><U><B><FONT SIZE=4 FACE="Times New Roman">FAQ: Where do I find the "Any" key on my keyboard? (FAQ2859)</FONT></B></U><B></B>
<BR><FONT FACE="Times New Roman">The term "any key" does not refer to a particular key on the keyboard. It simply means to strike any one of the keys on your keyboard or handheld screen.</FONT></P>
<BR>
<BR>
<P><B><FONT SIZE=2 FACE="Arial">The information in this e-mail is confidential and may also be legally</FONT></B>
<BR><B><FONT SIZE=2 FACE="Arial">privileged. The contents are intended for recipient only and are subject</FONT></B>
<BR><B><FONT SIZE=2 FACE="Arial">to the legal notice available on request from : webmaster@alcontrol.co.uk</FONT></B>
<BR><B><FONT SIZE=2 FACE="Arial">ALcontrol Laboratories is a trading division of ALcontrol UK Limited.</FONT></B>
<BR><B><FONT SIZE=2 FACE="Arial">Registered Office: Templeborough House, Mill Close, Rotherham, S60 1BZ.</FONT></B>
<BR><B><FONT SIZE=2 FACE="Arial">Registered in England and Wales No 4057291</FONT></B>
</P>
</BODY>
</HTML>