VBA ElseIf not running

[CDienst]

Hello,

I think I have a fairly simple block of code here, and most of it works, but the ElseIf never happens to change the cell to V. The If before it has no problem setting the cell to H. I also tried just using an Else, but that didn't work either. I'm not getting an error or anything, and the hidden state of the rows does toggle each time it runs.

Thanks

Sub ToggleCOGSAlcohol()


Dim Alcohol As String
    Alcohol = Worksheets("DNT").Application.Range("B6").Value
            
            With Rows("54:59")
                .Hidden = Not .Hidden
            End With
 
        If Alcohol = V Then
            Range("DNT!B6").Value = "H"
        ElseIf Alcohol = H Then
     '   Else
            Range("DNT!B6").Value = "V"
        End If


End Sub

 

[RoryA]

It looks like you're missing some quotes:

        If Alcohol = "V" Then
            Range("DNT!B6").Value = "H"
        ElseIf Alcohol = "H" Then
     '   Else
            Range("DNT!B6").Value = "V"
        End If

 

[CDienst]

Thanks for the quick response

If I put those those in quotes, neither the If or ElseIf triggers as true.

 

[RoryA]

Then your Alcohol variable doesn't contain V or H. It looks like you have a mistake here:

 Alcohol = Worksheets("DNT").Application.Range("B6").Value

Unless you meant to refer to whatever sheet is active when the code runs, remove the part I highlighted in blue.

 

[CDienst]

Oh, perfect. It's working now. I'll have to remove that from a few more sections, but I think it'll work everywhere.

Thanks

 

[RoryA]

Glad to help.