Copy User Defined Range to Same Place in Multiple Worksheets

[Eruantano]

Hi, I'm an old user of this message board, and I have searched for ways to get this particular task done on this board and on a few other boards, but have not gotten a workable solution. It seems that it should be relatively straightforward, yet I can't seem to figure my way around it.

Stated simply, I want the user to select a single, continuous range from worksheet 1 that will be pasted it into all other worksheets of the same workbook in the same exact place; e.g. user selects A1:D4 in worksheet 1, then the macro copies the range (including formulae) into all other worksheets in the same place (A1:D4). The other worksheets would be blank in that range.

Appreciate the help, sorry if I didn't search for the appropriate tags and missed a link that could have been helpful.

Joe.

 

[MARK858]

Try

Sub Eru()
    Dim i, ws As Worksheet
    i = Selection.Address
    Selection.Copy
    For Each ws In ActiveWorkbook.Worksheets
        ws.Range(i).PasteSpecial Paste:=xlPasteAll
    Next
    Application.CutCopyMode = False
End Sub

 

[Eruantano]

Try

Sub Eru()
    Dim i, ws As Worksheet
    i = Selection.Address
    Selection.Copy
    For Each ws In ActiveWorkbook.Worksheets
        ws.Range(i).PasteSpecial Paste:=xlPasteAll
    Next
    Application.CutCopyMode = False
End Sub

Thanks very much, Mark. It was the address I was having problems with initially, but I managed to figure it out just as you replied as well.
Appreciate the confirmation that I was on the right track!

Joe.

 

[MARK858]

Your welcome, happy you got there.