VBA to print multiple names from a column.

[RedOctoberKnight]

Good Morning,

I have a list of names in two columns (K3:K:20 and N3:N20). I want each name to appear in Cell B1 and print the sheet. If possible, I'd like it to skip blank cells in the names list. I'd like it to run through both columns of names so I can just run the VBA and it will go through each name and print the sheet. Sorry, I'm sure I'm not explaining this very well.

so in theory,

B1 equals K3 and prints sheet, Then
B1 equals K4 and prints sheet, then
B1 equals K5 and prints sheet and so on down to K:20 and then does the same thing for the names in column N3:N20. I would like it to skip blank cells if possible.

Any help would be much appreciated.

 

[JLGWhiz]

Give this a try:

Sub t()
Dim c As Range, rng As Range
Set rng = Union(Range("K3:K20"), Range("N3:N20"))
    For Each c In rng
        If c <> "" Then
            Range("B1") = c.Value
            ActiveSheet.PrintOut
        End If
    Next
End Sub

 

[RedOctoberKnight]

Worked perfectly! thank you!

 

[RedOctoberKnight]

Give this a try:

Sub t()
Dim c As Range, rng As Range
Set rng = Union(Range("K3:K20"), Range("N3:N20"))
    For Each c In rng
        If c <> "" Then
            Range("B1") = c.Value
            ActiveSheet.PrintOut
        End If
    Next
End Sub

Anyway I can get it to print a copy of "sheet2" as well every time it runs through a name?

 

[JLGWhiz]

Sheet2.PrintOut

add after ActiveSheet.PrintOut