Help! I want to to copy information from one cell in sheet 3 to sheet 1, 2 and sheet 4

[tlang]

Hello, I need help! I am using 3 to 4 sheets in one workbook. I want to to copy information from one cell in sheet 3 to sheet 1, 2 and sheet 4. How would I do this?
Tlang

 

[j_latendre]

Something as simple as this:

Sub copy()
Dim x As Integer
Dim y As Integer
x = 1
y = 1
Sheets("Sheet1").Cells(x, y) = Sheets("Sheet3").Cells(x, y)
Sheets("Sheet2").Cells(x, y) = Sheets("Sheet3").Cells(x, y)
Sheets("Sheet4").Cells(x, y) = Sheets("Sheet3").Cells(x, y)
End Sub

This will copy whats in sheet 3 Cell A1 and place it in Sheets 1, 2, 4 Cell A1.

Jesse