URGENT Checkbox Code Needed

[Sweetmusic1]

I created Checkbox Code that when checked, it brings me to the related worksheet and expands the rows. I want it to ONLY expand the row in the related worksheet and not actually bring me there. What do I have wrong? I am new to VBA so I can't seem to see the error. Sub ANCHORLINK()
ActiveWindow.SmallScroll Down:=-3
Sheets("Transition Worksheet").Select
If ROWS(14).ShowDetail = True Then
ROWS(14).ShowDetail = False
Else

If ROWS(14).ShowDetail = False Then
ROWS(14).ShowDetail = True
End If
End If
End Sub

 

[Domenic]

Try...

[COLOR=darkblue]Sub[/COLOR] ANCHORLINK()
    [COLOR=darkblue]With[/COLOR] Sheets("Transition Worksheet")
        [COLOR=darkblue]If[/COLOR] .Rows(14).ShowDetail = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
            .Rows(14).ShowDetail = [COLOR=darkblue]False[/COLOR]
        [COLOR=darkblue]ElseIf[/COLOR] .Rows(14).ShowDetail = [COLOR=darkblue]False[/COLOR] [COLOR=darkblue]Then[/COLOR]
            .Rows(14).ShowDetail = [COLOR=darkblue]True[/COLOR]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

However, it can be re-written as follows...

[COLOR=darkblue]Sub[/COLOR] ANCHORLINK()
    [COLOR=darkblue]With[/COLOR] Sheets("Transition Worksheet")
        .Rows(14).ShowDetail = [COLOR=darkblue]Not[/COLOR] .Rows(14).ShowDetail
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Hope this helps!

 

[Sweetmusic1]

This was perfect!!! Thank you!!

 

[Domenic]

You're very welcome!