Macro to print page if data in specified cell

Hello!

A few years back someone kindly posted the following code which allowed me to print using a macro any worksheet within my workbook if it had data in a specified cell (in this case A4).

Dim ws As Worksheet
    Dim first As Boolean
    first = True
    For Each ws In Worksheets

    If ws.[A4].Value <> Empty Then
    If first Then
    ws.Select Replace:=True
    first = False
    Else
    ws.Select Replace:=False
    End If
    End If
    Next
   ActiveWindow.SelectedSheets.PrintOut copies:=1

How can I modify this so that it performs the same process but ONLY on the one worksheet, not all worksheets within a work book?

Thanks in advance.

Darren