Whoops, I guess I'm just silly. I forgot to put the end(xlup)
[VBA]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cell As Range, ws As worksheet
Set ws = activeworkbook.sheets("SheetName")
For Each cell In ws.Range("K2", ws.Range("K" & ws.Rows.Count).end(xlup))
If cell <> "Closed" And cell.Offset(0, 1) = "" Then
MsgBox "Please Fill in Comments at Cell " & cell.Offset(0, 1).Address
Cancel = True
End If
Next cell
End Sub
[/VBA]
RE: See my tag line
. I know I wouldn't make a mistake like that, so why would I look for it.