Solved: VBA Macro to Print

[ports18]

Thanks for your Help, being new to this I have no idea what Im doing, hence starting a course soon but I have changed the code to what i thought related to my Worksheets etc. When I run it I get a "Method or Data member not found" and it highlights Value = on the 4th last row. Could you let me know where I have it wrong.

Appreciate the assistance.

Glen


[VBA] Sub Ports18()
Dim SheetApp_List As Worksheet, SheetBuild_Sheet As Worksheet
Dim PCIDcol As Range, CellTo As Range, CLL As Range

'***** CHANGE AS NEEDED *****
Set SheetApp_List = Sheets("Sheet with PCIDs")
Set SheetBuild_Sheet = Sheets("Sheet To Print")
Set PCIDcol = SheetApp_List.Columns("A")
Set CellToPasteTo = SheetBuild_Sheet.Range("H3")

Set PCIDcol = Intersect(PCIDcol, SheetApp_List.UsedRange) ', SheetApp_List.Rows("2:65536"))
For Each CLL In PCIDcol.Cells
SheetBuild_Sheet.Value = CLL.Value
SheetBuild_Sheet.PrintOut
Next
End Sub[/VBA]