Good morning Happy campers,

I have the following code in a sheet.
Sub stopM()

Range("g7").Select
If Range("g7") <> "1" Then
MsgBox "MTN Already exists" & vbNewLine & "Please confirm Entry"
Range("C8").Select
    Exit Sub
End If
Range("C8").Select
ActiveCell.Copy
Application.Run "'Provisioning Tracker 2012 Version 110612 (2).xlsm'!Find_First"
End Sub

Sub Find_First()
    Dim FindString As String
    Dim Rng As Range
    FindString = Sheets("Input").Range("C4").Value
    If Trim(FindString) <> "" Then
        With Sheets("Work Orders").Range("A:A")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If
ActiveCell.Offset(0, 8).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
      Selection = Date
Sheets("Input").Select Range("C8").Select
Selection.ClearContents
Sheets("Input").Select Range("C4").Select
Selection.ClearContents
End Sub
This code works fine, however it takes around 20 seconds to complete. after a bit of old google searching i managed to find the following sections of code that may help.
screenUpdateState = Application.ScreenUpdating
statusBarState = Application.DisplayStatusBar
calcState = Application.Calculation
but when i add this to my code it only does part of if, and seems to stop.

I also found that i need to enter the following at the end of my code 
Application.ScreenUpdating = screenUpdateState
Application.DisplayStatusBar = statusBarState
Application.Calculation = calcState
Could anyone let me know where these lines should go in, in order for it to work?

regards, galvinpaddy