how to stop macro when "If" condition is met

[Savuti]

Hello all, I need to have this macro stop at the point that ("K7") = "okay" - otherwise it should continue running the rest of the code.
Help is much appreciated as always.

Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="joker"
    If ActiveSheet.Range("K7").Value = "" Then ActiveSheet.Range("K7").Value = "okay"
    Range("E3").Select

    
    Dim iComNm As String
    Dim iUsrNm As String
    iComNm = ReturnComputerName
    iUsrNm = ReturnUserName
    MsgBox "You are logged in as the following..." & vbNewLine & _
    "Computer : " & iComNm & vbNewLine & _
    "Username : " & iUsrNm
   Sheets("Sheet1").Range("L7").Value = iComNm
   Sheets("Sheet1").Range("M7").Value = iUsrNm

 

[pedie]

Just add

[/FONT]
[FONT=Courier New]Application.ScreenUpdating = False[/FONT]
[FONT=Courier New]ActiveSheet.Unprotect Password:="joker"[/FONT]
[FONT=Courier New]If ActiveSheet.Range("K7").Value = "" Then [/FONT]
[FONT=Courier New]ActiveSheet.Range("K7").Value = "okay"[/FONT]
[FONT=Courier New]Exit sub[/FONT]
[FONT=Courier New]else[/FONT]
[FONT=Courier New]end if[/FONT]
[FONT=Courier New]   Range("E3").Select[/FONT]
[FONT=Courier New]    Dim iComNm As String[/FONT]
[FONT=Courier New]    Dim iUsrNm As String[/FONT]
[FONT=Courier New]    iComNm = ReturnComputerName[/FONT]
[FONT=Courier New]    iUsrNm = ReturnUserName[/FONT]
[FONT=Courier New]    MsgBox "You are logged in as the following..." & vbNewLine & _[/FONT]
[FONT=Courier New]    "Computer : " & iComNm & vbNewLine & _[/FONT]
[FONT=Courier New]    "Username : " & iUsrNm[/FONT]
[FONT=Courier New]   Sheets("Sheet1").Range("L7").Value = iComNm[/FONT]
[FONT=Courier New]   Sheets("Sheet1").Range("M7").Value = iUsrNm[/FONT]
[FONT=Courier New][/FONT] 
[FONT=Courier New]

 

[Savuti]

Thanks for the reply pedie - i am getting a Compile Error - else without if

 

[pedie]

Which line is giving you error? I think the part of the code below end if needs to be rechecked...

 

[Savuti]

Pedie, the word Else in the code is highlighted with the Compile Error message. The entire code works well, I just need it to stop if the word "okay" is present.
Thanks

 

[pedie]

Sub try[/FONT][FONT=Courier New]Application.ScreenUpdating = False[/FONT]
[FONT=Courier New]Dim iComNm As String[/FONT]
[FONT=Courier New]Dim iUsrNm As String[/FONT]
 
[FONT=Courier New]ActiveSheet.Unprotect Password:="joker"[/FONT]
[FONT=Courier New]iComNm = ReturnComputerName[/FONT]
[FONT=Courier New]iUsrNm = ReturnUserName[/FONT]
[FONT=Courier New]If ActiveSheet.Range("K7").Value = "" Then[/FONT]
[FONT=Courier New]ActiveSheet.Range("K7").Value = "okay"[/FONT]
[FONT=Courier New]Exit Sub[/FONT]
[FONT=Courier New]Else[/FONT]
[FONT=Courier New]End If[/FONT]
[FONT=Courier New]   MsgBox "You are logged in as the following..." & vbNewLine & _[/FONT]
[FONT=Courier New]   "Computer : " & iComNm & vbNewLine & _[/FONT]
[FONT=Courier New]   "Username : " & iUsrNm[/FONT]
[FONT=Courier New]  Sheets("Sheet1").Range("L7").Value = iComNm[/FONT]
[FONT=Courier New]  Sheets("Sheet1").Range("M7").Value = iUsrNm[/FONT]
[FONT=Courier New]Application.ScreenUpdating = True[/FONT]
[FONT=Courier New]End Sub[/FONT]

 

[Savuti]

Thanks for your help pedie, the code ran well but I have picked up additional issues further on down the line of code - I will have to figure out and repost at some time.