need a VB msgbox based on last row of querytable object (text import)

[tulipsfree]

Need the msgbox to alert when the 'last non-blank' in a column is '1' (or 'true') -- immediately after (or as part of) a refresh event of a querytable object importing a .txt file.

This is some code I came up with off the top of my head that, so far, doesn't work:

Sub SignalAlert()
Dim j, k, n, o As Boolean
Set j = Range("J4&quot.End(xlDown).Select
Set k = Range("K4&quot.End(xlDown).Select
Set n = Range("N4&quot.End(xlDown).Select
Set o = Range("O4&quot.End(xlDown).Select
If j = 1 Then
Ans = MsgBox("text&quot
ElseIf k = 1 Then
Ans = MsgBox("text&quot
ElseIf n = 1 Then
Ans = MsgBox("text&quot
ElseIf o = 1 Then
Ans = MsgBox("text&quot
End If
End Sub


Thanks for your help,
Tulip

 

[tulipsfree]

oops -- forgot to mention is is VB6 for Excel.

Any help at all is most appreciated...

Thanks again,
Tulip