Sub PrintDV() Dim rng2 As Range, cel As Range Dim strFileName As String Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Set rng2 = ws.Range([g2], Cells(ActiveSheet.Rows.Count, "G").End(xlUp)) MsgBox rng2.Address For Each cel In rng2 ws.[c1] = cel If cel <> vbNullString Then ws.PrintOut Next End Sub
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.