Enter a number to the same cell for all sheets

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

minrufeng - 22 Feb 2006 18:04 GMT

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

Reply to this Message

Jim F - 22 Feb 2006 18:32 GMT

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

> 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?

Reply to this Message