I have the code below on a worksheet to modify a form based if it's a Purchase order or not. It works but it seems like it could be much shorter. I tried several different ways to write it but I can't get it to work any other way. I was hoping someone could tell me if there is a better way to do this or if this is the correct way.
Thanks for any help
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
' If cell E5 = "Purchase Order" remove sales tax % from E33 and Hide Text Boxes 1 and 8
If Target.Address = Range("E5").Address Then
If Target = "Purchase Order" Then
Range("E33").Value = 0
With ActiveSheet.Shapes("Text Box 1")
If ActiveSheet.Range("E5") = "Purchase Order" Then
.Visible = False
End If
End With
With ActiveSheet.Shapes("Text Box 8")
If ActiveSheet.Range("E5") = "Purchase Order" Then
.Visible = False
End If
End With
Else
Range("E33").Value = 0.06
With ActiveSheet.Shapes("Text Box 8")
If ActiveSheet.Range("E5") <> "Purchase Order" Then
.Visible = True
End If
End With
With ActiveSheet.Shapes("Text Box 1")
If ActiveSheet.Range("E5") <> "Purchase Order" Then
.Visible = True
End If
End With
End If
End If
End Sub
Thanks for any help