If statment error

[rspalding]

I'm trying to add the "IF" statements to change my active sheet range. When doing this I get an error.

Set rng = Nothing

rng = if ActiveSheet.Range("P97").Value = "0" Then
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$73"
End With
End If
If ActiveSheet.Range("P97").Value > "0" Then
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$99"
End With
End If
If ActiveSheet.Range("P123").Value > "0" Then
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$125"
End With
End If
If ActiveSheet.Range("P149").Value > "0" Then
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$151"
End With
End If

 

[VoG]

In what way not working? Do you get an error (you shouldn't).

 

[rspalding]

YES I get an error. I think it is because of the "set rng = ". The origional program just had the following:

Set rng = ActiveSheet.Range("A1:AF73") and this is where I vant to insert the variable based on the data.

 

[VoG]

You are not helping yourself here. What is the error?

 

[rspalding]

MY ERROR.... It does work. I added the code to set the printer page preferences and all is working well.

THANK YOU for your help.