Thủ tục kết thúc một quá trình làm việc như thế nào?

[Trojan]

Tôi có một đoạn mã như sau:
Sub Column_deleted()
Dim x, y As String
Application.ScreenUpdating = False
x = Application.InputBox("Hay dien ten thang can lam timesheet!", "Nguyen Duy Cong", "Jan")
y = Application.InputBox("Dien nam can lam timesheet", "Nguyen Duy Cong", "2008")
Cells(7, 1) = "Month / Year: " & x & "/" & y
Range("e11:ai36").Select
Selection.ClearContents
Columns("AE:AJ").Select
Selection.EntireColumn.Hidden = False
Range("E15").Select
If Cells(56, 16) = 28 Then
Columns("AG:AI").Select
Selection.EntireColumn.Hidden = True
Range("E15").Select
End If
If Cells(56, 16) = 30 Then
Columns("AI:AI").Select
Selection.EntireColumn.Hidden = True
Range("E15").Select
End If
End Sub
Vấn đề là ở chỗ khi chạy ra input box có khi người dùng bấm lệnh cancel thì làm thế nào để khi đó kết thúc quá trình làm việc luôn mà không thực hiện các bước tiếp theo. Xin các cao thủ VBA chỉ giáo, cảm ơn nhiều.

 

[tuyetbay]

Vậy thì thêm chút đỉnh thôi!

Sub Column_deleted()
Dim x, y As String
Application.ScreenUpdating = False
x = Application.InputBox("Hay dien ten thang can lam timesheet!", "Nguyen Duy Cong", "Jan")
[COLOR=red]If x = 0 Then[/COLOR]
[COLOR=red]Exit Sub[/COLOR]
[COLOR=red]Else[/COLOR]
y = Application.InputBox("Dien nam can lam timesheet", "Nguyen Duy Cong", "2008")
Cells(7, 1) = "Month / Year: " & x & "/" & y
Range("e11:ai36").Select
Selection.ClearContents
Columns("AE:AJ").Select
Selection.EntireColumn.Hidden = False
Range("E15").Select
[COLOR=red]End If[/COLOR]
If Cells(56, 16) = 28 Then
Columns("AG:AI").Select
Selection.EntireColumn.Hidden = True
Range("E15").Select
End If
If Cells(56, 16) = 30 Then
Columns("AI:AI").Select
Selection.EntireColumn.Hidden = True
Range("E15").Select
End If
End Sub

 

[chibi]

Sub Column_deleted()
Dim x, y As String
Application.ScreenUpdating = False
x = Application.InputBox("Hay dien ten thang can lam timesheet!", "Nguyen Duy Cong", "Jan")
[COLOR=red]If x = False Then Exit Sub[/COLOR]
y = Application.InputBox("Dien nam can lam timesheet", "Nguyen Duy Cong", "2008")
[COLOR=red]If y = False Then Exit Sub[/COLOR]
Cells(7, 1) = "Month / Year: " & x & "/" & y
Range("e11:ai36").Select
Selection.ClearContents
Columns("AE:AJ").Select
Selection.EntireColumn.Hidden = False
Range("E15").Select
If Cells(56, 16) = 28 Then
Columns("AG:AI").Select
Selection.EntireColumn.Hidden = True
Range("E15").Select
End If
If Cells(56, 16) = 30 Then
Columns("AI:AI").Select
Selection.EntireColumn.Hidden = True
Range("E15").Select
End If
End Sub