code wont run

[kevin lazell]

Sub Sheet2_Button185_Click()
Dim A As String
Dim txt As String
Dim hf As Variant
Dim g As Variant
Dim q As Variant
If Range("s12") = 2 Then GoTo one:
*** the above line does not execute ***
g = Range("C" & Rows.Count).End(xlUp): If g = 0 Then Range("z" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("g1").Value: Range("g1") = Range("a1"): Range("a1") = Range("z1")
q = Range("e" & Rows.Count).End(xlUp): If q = 0 Then Range("z" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("a1").Value: Range("a1") = Range("z1")
Range("z1") = Range("z2"): Range("z2") = Range("z3"): Range("z3") = Range("z4"): Range("z4") = Range("z5")
If Sheets("sheet1").Range("e17") = 6 Then Range("z5").ClearContents
If Sheets("sheet1").Range("e17") = 5 Then Range("z4").ClearContents
If Sheets("sheet1").Range("e17") = 4 Then Range("z3").ClearContents
If Sheets("sheet1").Range("e17") = 3 Then Range("z2").ClearContents
GoTo two:
one:
q = Range("e" & Rows.Count).End(xlUp): If q = 0 Then GoTo two:
A = Range("G1"): Range("G1") = Range("A1"): Range("A1") = A
two:
Range("A2:G30").ClearContents
Range("H11") = 1: Range("i11") = 1
Range("B1").Select
txt = Range("A1")
Application.Wait Now + TimeSerial(0, 0, 2)
Application.Speech.Speak " it IS "
Application.Speech.Speak txt
Application.Speech.Speak " TO THROW FIRST GAME ON"
end sub

hi all
i have the above code which works ok except for the highlighted line, the code does not
want to know it. if i check the code using the step into, ie pressing f8 it works fine
can someone please point me in the right direction to solve this problem

cheers
kev

 

[AlphaFrog]

If you put a break point on the IF line of code, does the code stop on that break point when run?

add a break point: highlight this line and press the F9 key
If Range("S12").Value = 2 Then

 

[kevin lazell]

hi alphafrog
i done as you suggested and the code did not stop.
cheers
kev

 

[AlphaFrog]

If you want to upload your workbook file to a file share site like http://rapidshare.com/ or one of many other sites, I'd be happy to take a look at it. Post the link here.

 

[VoG]

Just sticking my nose in ... what does this return?

Sub test()
MsgBox "'" & Range("S2").Value & "'"
End Sub

 

[kevin lazell]

hi VoG
firstly you are more than welcome to poke your nose in lol
i done what you asked and nothing happened.
cheers
kev

 

[VoG]

Did you run that as a standalone macro and nothing happened?

 

[kevin lazell]

hi VoG
as a stand alone macro nothing happened but it did work stepping through using f8
i then used worksheet activate and it worked.
cheers
kev

 

[VoG]

So what did the message box show?

 

[kevin lazell]

HI VoG
the message box showed the value of cell s12 which is 2 as '2'
cheers
kev

 

[kevin lazell]

'2'