Hi,

Can anyone please tell me why the code below would run perfectly in
Excel 2003, but not Excel 2000 (and 97 I assume). It stops on the Paste
Special section:

If Not IsDate([C1].Value) Then
MsgBox "Please enter a date in C1!"
[C1].Value = "Enter date here"
Exit Sub
Else
thisDate = Range("Production!C1").Value
Sheets("Data").Select
ActiveSheet.Unprotect
Range("G1:BH1").Select
Selection.Copy
Range("E6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:=thisDate, After:=ActiveCell,
LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("Production").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "Enter date here"
Sheets("PAC Track").Select
Range("C6").Select
Application.CutCopyMode = False
End If
End Sub

Many thanks.

Rob

If you do Edit|Find in xl2002+, you'll see that's it's been enhanced to allow
you to look at formats, too.

The same thing happened in code.

This portion of your .find line should be removed:
SearchFormat:=False

As a general rule, it's probably better to develop in the oldest version of
excel that the users have.

Rob Gould wrote:

Hi,

Can anyone please tell me why the code below would run perfectly in
Excel 2003, but not Excel 2000 (and 97 I assume). It stops on the Paste
Special section:

If Not IsDate([C1].Value) Then
MsgBox "Please enter a date in C1!"
[C1].Value = "Enter date here"
Exit Sub
Else
thisDate = Range("Production!C1").Value
Sheets("Data").Select
ActiveSheet.Unprotect
Range("G1:BH1").Select
Selection.Copy
Range("E6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:=thisDate, After:=ActiveCell,
LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("Production").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "Enter date here"
Sheets("PAC Track").Select
Range("C6").Select
Application.CutCopyMode = False
End If
End Sub

Many thanks.

Rob

--

Dave Peterson

Thanks Dave. I re-created the macro in 2000 and compared it to 2003
and found that little extra part.

Rob