Thử lồng hàm Fution trong thủ tục Sub như thế nào

[Phanhanhdai]

em đã đọc quyển sách VBA của anh Phan Tự Hướng nhưng em muốn hỏi liệu có cách nào mình liên kết lồng Funtion trong Sub không nhỉ?. Sau đây là ví dụ của em

 

[ThuNghi]

em đã đọc quyển sách VBA của anh Phan Tự Hướng nhưng em muốn hỏi liệu có cách nào mình liên kết lồng Funtion trong Sub không nhỉ?. Sau đây là ví dụ của em

Chả hiểu yêu cầu lắm, với lại file protect nên không rõ.
Còn Function trong sub thì vô tư. Đây là 1 ví dụ: Nếu shName có tồn tại thì lấy endR

Sub LayDuLieu()
With Application
       .DisplayAlerts = False
       .ScreenUpdating = False
End With
    For k = 1 To 12
    shName = Right("0" & k, 2)
           If SheetExists(shName) = True Then
                Sheets(shName).Select
                endR = Range("E65000").End(xlUp).Row
                Sheets("DuLieu").Range("A" & k) = endR
            End If
    Next
With Application
       .DisplayAlerts = True
       .ScreenUpdating = True
End With
End Sub
Public Function SheetExists(shName) As Boolean
    Dim x As Object
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(shName)
    If Err = 0 Then SheetExists = True _
        Else SheetExists = False
End Function