Macro to populate same cell on multiple worksheets

[tomhelle]

I have a workbook consisting of multiple worksheets (e.g. worksheet 1 thru
50). I am creating a “dash board†worksheet (“Job Set-Upâ€) that will enable
the user to input a cell selection (A1) that will populate a specified cell
(B1) on specified worksheets (WS-2, WS-4, etc.)

I have limited experience with VBA therefore, I try to utilize the “record
macro†capabilities whenever possible. I have recorded the following macro
that copies and pastes (special) the values from A1 on WS-1 to B1 on WS-2 and
then returns back to the dashboard.

Sub Macro1()

Range("A1").Select
Selection.Copy
Sheets("WS-2").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("WS-1").Select
Application.CutCopyMode = False
End Sub

I want to edit this macro to paste the same values in cell B1 on certain
specified worksheets such as WS-4 and WS-6.

Is there a loop code that I can add to my recorded macro?

Many thanks in advance!

 

[Don Guillett]

One way.Use instead of yours for sheets ws-4 & ws-6

Sub dosheets()
myarray = Array(4, 6)
For Each c In myarray
Sheets("ws-" & c).Range("b1").value = Range("a1").value
Next c
End Sub