How to: copy value from active sheet to all other sheets with VBA (in desired cell)
 

Does anybody can help me?
I tried with command button
with macro:

Sub Button1_Click()
'
' Button1_Click Macro
'
Dim ws As Worksheet

Range("C3").Select
Selection.Copy
For Each ws In Worksheets

Range("D10").Select
ActiveSheet.Paste

Next wSheet
End Sub

How to: copy value from active sheet to all other sheets with VBA(in desired cell)
 

Sub Button1_Click()
'
' Button1_Click Macro
'
Dim ws As Worksheet

MyVal = Range("C3")

For Each ws In Worksheets

ws.Range("C3").Value = MyVal
Next ws

End Sub

How to: copy value from active sheet to all other sheets with VBA (in desired cell)
 

Thanks a lot!

with little change

Sub Button1_Click()
Dim ws As Worksheet
MyVal = Range("C3")
For Each ws In Worksheets
If Not ws.Name = Sheets(1).Name Then
ws.Range("d7").Value = MyVal
End If
Next ws
End Sub
works gr
works great!


"Greg Glynn" wrote in message
...
Sub Button1_Click()
'
' Button1_Click Macro
'
Dim ws As Worksheet

MyVal = Range("C3")

For Each ws In Worksheets

ws.Range("C3").Value = MyVal
Next ws

End Sub

How to: copy value from active sheet to all other sheets with VBA (in desired cell)
 

See added line of code below

On Tue, 14 Dec 2010 23:46:11 +0100, "DVAL" wrote:

Does anybody can help me?
I tried with command button
with macro:

Sub Button1_Click()
'
' Button1_Click Macro
'
Dim ws As Worksheet

Range("C3").Select
Selection.Copy
For Each ws In Worksheets

ws.select
Range("D10").Select
ActiveSheet.Paste

Next wSheet
End Sub