Copy, Paste and Print Cells from a Named Range



I have the following routine to copy a cell in the named range 'One', paste
the value into cell B4 of worksheet 'Trust', print the named range 'Two' and
then repeat this procedure for all of the cells in the named range 'One'. I
don't think this makes a difference, but the named ranges are on different
sheets. I am receiving a run-time error 13 - type mismatch. Not sure, but
the values to be copied from 'One' to cell B4 are stored as text.
Is there an easy fix to my macro?

Sub printAll()
Dim i
Dim myCount
myCount = Range("One")
For i = 0 To myCount
With Range("One")
End With
If i = myCount Then
End If
Next i
End Sub

Jim Thomlinson

Your code is a long way off from what you describe. So you want to copy the
individual values in range One into a specific cell on Sheet Trust and then
print out a range from that sheet??? Assuming that to be the case this will
be a lot closer to what you have asked...

dim rng as range

for each rng in worksheets("Sheet1").Range("One")
with worksheets("Trust")
.range("B4").value = rng.value
.range("Two").PrintPreview 'Change to printout
end with
next rng

Dave Peterson


Option Explicit
Sub printAll()
Dim myCell As Range
Dim OneRng As Range

Set OneRng = ActiveWorkbook.Names("One").RefersToRange

For Each myCell In OneRng.Cells
myCell.Copy _
ActiveWorkbook.Names("Two").RefersToRange.PrintOut preview:=True
Next myCell

End Sub

After you get it working, delete that Preview:=true stuff.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question