Excel Forum

Code: Select all

Sub SaveData()
ThisWorkbook.Activate
If Range("Check1") = 0 Then
    MsgBox ("Reccord No!!!!")
    Exit Sub
Else
    Application.ScreenUpdating = False
    If Range("Check2") = 1 Then
        MyVal2 = [Course_Input]
        [Course_New] = MyVal2
    End If
    MyVal = [Input]
    [Target] = MyVal
    Application.Goto Reference:="Clear"
    Selection.ClearContents
    Range("G4").Select
    Application.ScreenUpdating = True
    MsgBox ("Data Saved")
End If
End Sub