Cassie,

Your code can be simplified to that below but I can't see how your code (or
mine) would cause what you describe. Do you have any other code in the
workbook?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Sheet1").Range("A1") = "" Then
Cancel = True
Application.Goto Sheets("Sheet1").Range("A1")
MsgBox ("Type in the missing data...")
End If
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Cassie" wrote:

Hi,

I am using excel 2003 and have a workbook with 2 sheets and the code below
in "ThisWorkbook".

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Select
If Range("A1") = "" Then
Cancel = True
Range("A1").Select
MsgBox ("Type in the missing data...")
GoTo ExitNow
End If
ExitNow:
End Sub

If I leave cell A1 on Sheet1 blank, then click on Sheet2 and try to print,
it will place the cursor onto Sheet1 cell A1 and if I immediately type a
value and click enter, the value disappears from Sheet1 cell A1 and appears
in Sheet 2 cell A1.

Can anyone help?

--
Thanks, Cassie