vba if and goto statements

[bigjim]

I'm using Excell 2003 and trying to write a sub that does one thing if a cell
"g43" contains the words "2 stage" then go to cell "b635" and end the sub.
If not, I want it to open another worksheet in the same workbook. Here is my
code. No matter what is in g43, it goes to the new worksheet:

If Range("g38") = "2 stage" Then GoTo line1 Else GoTo line2

line1: Range("b635").Select
GoTo Lastline


line2:

Sheets("Encana Blend W WS").Visible = True
ActiveWorkbook.Sheets("Encana Blend W WS").Unprotect Password:="b"
Application.Goto ActiveWorkbook.Sheets("Encana Blend W WS").Cells(3)
ActiveWorkbook.Sheets("Encana Blend W WS").Protect Password:="b"
Sheets("Ticket Wizard").Visible = False
Lastline:

End Sub

 

[Don Guillett]

try it this standard way

if range("g43").value="2 stage" then
range("b635").select
exit sub
else
'goto other sheet where you did NOT do anything???
' you may/may not have to unhide or unprotect to do something???
end if

 

[Per Jessen]

Hi

This should do it:

Sub AAA()
If Range("g38").Value = "2 stage" Then
Range("b635").Select
Else
Sheets("Encana Blend W WS").Visible = True
ActiveWorkbook.Sheets("Encana Blend W WS").Unprotect Password:="b"
Application.Goto ActiveWorkbook.Sheets("Encana Blend W WS").Cells
(3)
ActiveWorkbook.Sheets("Encana Blend W WS").Protect Password:="b"
Sheets("Ticket Wizard").Visible = False
End If
End Sub


Regards,
Per

 

[bigjim]

thank you so much. I'll give it a try.

Jim

try it this standard way

if range("g43").value="2 stage" then
range("b635").select
exit sub
else
'goto other sheet where you did NOT do anything???
' you may/may not have to unhide or unprotect to do something???
end if


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[bigjim]

Thank you so much. I'll give this a try.

Jim

Hi

This should do it:

Sub AAA()
If Range("g38").Value = "2 stage" Then
Range("b635").Select
Else
Sheets("Encana Blend W WS").Visible = True
ActiveWorkbook.Sheets("Encana Blend W WS").Unprotect Password:="b"
Application.Goto ActiveWorkbook.Sheets("Encana Blend W WS").Cells
(3)
ActiveWorkbook.Sheets("Encana Blend W WS").Protect Password:="b"
Sheets("Ticket Wizard").Visible = False
End If
End Sub


Regards,
Per