Sub Macro1()
'
' Macro1 Macro


If Worksheets("Enter").Range("AM4").Value =
Worksheets("Daily").Range("B4") Then
Worksheets("Daily").Range("C4").Value =
Worksheets("Enter").Range("AA9").Value
Worksheets("Daily").Range("D4").Value =
Worksheets("Enter").Range("AG6").Value
Worksheets("Daily").Range("E4").Value =
Worksheets("Enter").Range("AA11").Value
Worksheets("Daily").Range("G4").Value =
Worksheets("Enter").Range("AA15").Value
Worksheets("Enter").Range("AA9").Value = ""
Worksheets("Enter").Range("AG6").Value = ""
Worksheets("Enter").Range("AA11").Value = ""
Worksheets("Enter").Range("AA15").Value = ""
Sheets("Daily").Select
Range("C4,D4,E4,G4").Select
ActiveSheet.Unprotect
Sheets("Daily").Select
Range("C4,D4,E4,G4").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End If



If Worksheets("Enter").Range("AM4").Value =
Worksheets("Daily").Range("B5") Then
Worksheets("Daily").Range("C5").Value =
Worksheets("Enter").Range("AA9").Value
Worksheets("Daily").Range("D5").Value =
Worksheets("Enter").Range("AG6").Value
Worksheets("Daily").Range("E5").Value =
Worksheets("Enter").Range("AA11").Value
Worksheets("Daily").Range("G5").Value =
Worksheets("Enter").Range("AA15").Value
Worksheets("Enter").Range("AA9").Value = ""
Worksheets("Enter").Range("AG6").Value = ""
Worksheets("Enter").Range("AA11").Value = ""
Worksheets("Enter").Range("AA15").Value = ""
Sheets("Daily").Select
Range("C5,D5,E5,G5").Select
ActiveSheet.Unprotect
Sheets("Daily").Select
Range("C5,D5,E5,G5").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


End If
If Worksheets("Daily").Range("D5").Value = "" Then
Worksheets("Enter").Range("AM4").Value = "102"
End If
etc...

"Mike H" wrote:

Hi,

I think you need to explain a bit more clearly and post your code describing
the conditions on which you want to exit.

Mike

"bgkgmg" wrote:

I'm running macro with many If Then statements. If Then applies to matching
invoice numbers and then moving info to row on another sheet. I am locking
cells that are involved on sheet2 and protecting worksheet after each one. I
would like macro to stop running after whichever If Then statement applies
first so other rows of If Then statements are not locked thus allowing me to
enter next statement.
I hope you understand question.
Thanks
Bobby