msg box

[gueddes]

Hello All
Im trying to use VBA to give me a Message box. Theres data that self populates in Column A to F. then the user has to put data into Column G through K before closing the sheet. A lot of times the user will leave out the data in Column K before closing it and column K is important for other coding. Does anyone know of a way to use VBA to make a msg box come up if : theres data in row a then a msg box shows up by k (same row) stating data required in k.

thanks

 

[footoo]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim rng As Range
On Error Resume Next
Set rng = Range([K1], Cells(Rows.Count, "A").End(xlUp)(1, 11)).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
    MsgBox "Data required in cell(s) " & rng.Address(0, 0)
    rng(1).Select
    Cancel = True
End If
End Sub