macro to print worksheet based on value in range of cells

I have a workbook with two worksheets. I need a macro to print worksheet1 if worksheet2 has the value "X" (either caps or lowercase) in range A1:A3000. Can anyone help with this?

Thanks

Thanks for your reply, but I am still not sure how to do this. This is what I have and it only prints if I enter an x in cell a5, which is offset 4 from A1. I want it to print if x is in any cell from a4:a3000. A1 has the name of the sheet I want to print. I have another macro at the "on change" that will run 3 macros one right after so I don't need this macro on change. Thanks for your help.

Sub PrintCM()
'
' PrintCM Macro
'
Dim bFirst As Boolean, sh As Object
Dim cell As Range
Set sh = ActiveSheet
bFirst = True
For Each cell In Worksheets("CopyFrom").Range("a1:a1")
If LCase(cell.Offset(4, 0).Value) = "x" Then
Worksheets(cell.Value).Select Replace:=bFirst
bFirst = False
End If
Next
If Not bFirst Then
ActiveWindow.SelectedSheets.PrintOut
sh.Select
End If

End Sub