Option Explicit
Sub ChangeNameThenPrint()
  Dim wb As Workbook, cws As Worksheet, nws As Worksheet
  Dim CheckRow As Integer, TotalNames As Integer

  Set wb = ThisWorkbook
  Set cws = wb.Worksheets("Certificate")
  Set nws = wb.Worksheets("Names")

  TotalNames = nws.Range("A50000").End(xlUp).Row
    
  For CheckRow = 1 To TotalNames
    If nws.Range("B" & CheckRow).Value <> "" Then
      cws.Range("B42").Value = nws.Range("A" & CheckRow).Value
      cws.PrintOut  'You can set specific printer properties with a ( after Printout
    End If
  Next CheckRow

End Sub