You could try calling the following code from the on change event or from a
button object:

Sub EnterNumber(nbr As Integer)

Dim oWorkSheet As Worksheet

For Each oWorkSheet In ActiveWorkbook.Worksheets
oWorkSheet.Activate
Range("A1").Activate
ActiveCell.FormulaR1C1 = nbr
Next
End Sub

"minrufeng" wrote:


Enter a number into an active Cell and want the same cell in every other
sheet has the same number entered. Does anyone know how to do this by
using form?


--
minrufeng
------------------------------------------------------------------------
minrufeng's Profile: http://www.excelforum.com/member.php...o&userid=26208
View this thread: http://www.excelforum.com/showthread...hreadid=515438