Hi tkowal,
Very sorry for the delayed response. I know what it's like to get busy at work
That's so much for doing that. For some reason I was still having difficult and it was probably cascading from my poor programming elsewhere when I tried to copy paste that into the complete spreadsheet. I know what I want to do, and end up figuring it out, albeit sloppy but it as long as it gets the task at hand done, I suppose ok. Doesn't help folks like you. Definately saving your code for the future. Anyway, I hunted a VB person at work, he came up with this for me and it did the trick:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim First As String
Dim Second As String
First = Range("K32").Value
Second = Range("K34").Value
If First = "" Or Second = "" Then
ActiveSheet.Shapes("SFInstructionsTxt").Visible = True
ActiveSheet.Shapes("EligInstructionsTxt").Visible = True
ActiveSheet.Shapes("TextBox5").Visible = False
ActiveSheet.Shapes("TextBox6").Visible = False
ElseIf First = "PROCEED" And Second= "PROCEED" Then
ActiveSheet.Shapes("SFInstructionsTxt").Visible = False
ActiveSheet.Shapes("EligInstructionsTxt").Visible = True
ActiveSheet.Shapes("TextBox5").Visible = True
ActiveSheet.Shapes("TextBox6").Visible = False
ElseIf First = "INELIGIBLE" Or Second = "INELIGIBLE" Then
ActiveSheet.Shapes("SFInstructionsTxt").Visible = True
ActiveSheet.Shapes("EligInstructionsTxt").Visible = False
ActiveSheet.Shapes("TextBox5").Visible = False
ActiveSheet.Shapes("TextBox6").Visible = True
Else
ActiveSheet.Shapes("SFInstructionsTxt").Visible = True
ActiveSheet.Shapes("EligInstructionsTxt").Visible = True
ActiveSheet.Shapes("TextBox5").Visible = False
ActiveSheet.Shapes("TextBox6").Visible = False
End If
End Sub
Thanks again!
Bookmarks