This is what I have

Sub printsetarea()
Dim pval As Integer
pval = Range("a4:a50").Value("Theresa")
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$" & pval
End Sub
I'm trying to write it so that if the value "Theresa" is in column A to print out the corresponding rows only. I keep getting "runtime error 13" though.

Thanks for any help