Chris,

This would work for range A1 in Sheet1 and Sheet2. Paste it into the
ThisWorkbook code module in the VBA (not a regular code module):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Name = "Sheet1" Then
If Not Intersect(Sh.Range("A1"), Target) Is Nothing Then
Worksheets("Sheet2").Range("A1") = Sh.Range("A1")
End If
ElseIf Sh.Name = "Sheet2" Then
If Not Intersect(Sh.Range("A1"), Target) Is Nothing Then
Worksheets("Sheet1").Range("A1") = Sh.Range("A1")
End If
End If

End Sub

hth,

Doug

wrote in message
...
Sorry, I should have specified. This is for an
application, not just a one-time entry. I would like it
to function in that way but transparent to the user.

Chris

-----Original Message-----
simply use the control key and select the tabs desired to
select those
sheetsnow enter what you want in one and it will be the
same in the
othersselect one tab to undo the multiple selection.

--
Don Guillett
SalesAid Software

"Chris" wrote in
message
...
I have two worksheets contained in the same workbook
that
I would like to behave as a single cell value. For
instance, if a value is input into cell A1 on Sheet 1, I
would like it to automatically be entered into cell A1
on
Sheet 2, and vice versa. This can be accomplished with
a
handful of if-then statements but is there a more
elegant
solution such as cell naming?

Thanks.


.