printing number of copies
 

I have the following function in a worksheet, but of course it dosen't
work.
In one column there is a number for the number of copies, when I enter
a number it should print out that number of copies. Do I need to use
some sort of active sheet property? Why dosen't this work?

'used like so: =goPrint(C3, B3:B6)
Function goPrint(copies As Long, rng As Range) As String

Dim cell As Range
Dim c As CellFormat

For Each cell In rng

cell.Font.Size = 144
cell.PrintOut , , copies
cell.Font.Size = 10
Next
End Function