What is wrong with this code?

[sungen99]

Sub Macro1()

Sheets("Sheet1").Select
If Range("H20").Select = "FALSE" Then
MsgBox "NOT CHECKED"
Else
MsgBox "CHECKED"
End If

End Sub



H20 contains the result of a checkbox of either a False or True. Seems im always getting the Checked response which means im obviously not getting the result form the sheet correctly.

Thanks again,
Ken

[Oreg]

Hi sungen99,

try this:

Sheets("Sheet1").Select
If Range("H20").Text = "FALSE" Then
MsgBox "NOT CHECKED"
Else
MsgBox "CHECKED"
End If

End Sub

Oreg

[sungen99]

Yep. That works.

Thanks

[Gary Keramidas]

or this, no need to select anything:

Sub Macro1()

If Sheets("Sheet1").Range("H20").Text = "FALSE" Then
MsgBox "NOT CHECKED"
Else
MsgBox "CHECKED"
End If

End Sub

--


Gary


"sungen99" <sungen99.1wswmg_1129140330.0367@excelforum-nospam.com> wrote in
message news:sungen99.1wswmg_1129140330.0367@excelforum-nospam.com...
>
> Sub Macro1()
>
> Sheets("Sheet1").Select
> If Range("H20").Select = "FALSE" Then
> MsgBox "NOT CHECKED"
> Else
> MsgBox "CHECKED"
> End If
>
> End Sub
>
>
>
> H20 contains the result of a checkbox of either a False or True. Seems
> im always getting the Checked response which means im obviously not
> getting the result form the sheet correctly.
>
> Thanks again,
> Ken
>
>
> --
> sungen99
> ------------------------------------------------------------------------
> sungen99's Profile:
> http://www.excelforum.com/member.php...fo&userid=9144
> View this thread: http://www.excelforum.com/showthread...hreadid=475516
>

[Edward Ulle]

Even simpler. Since the data source of a checkbox is a boolean value
this will work.

Sub Macro1()

If Sheets("Sheet1").Range("H20") Then
MsgBox "Checked"
Else
MsgBox "Not Checked"
End If

End Sub



*** Sent via Developersdex http://www.developersdex.com ***