Bob has given you a nice code, just by oversight he put 'funded' in
worng column. Also if you want the other column not to be empty all you
have to do is use a 'Not'.

SO all you have to do is -


Sub FixStatus()
Dim i As Long
Dim LastRow As Variant

LastRow = Cells(Rows.Count,"M").End(xlUp).Row
For i = 1 to LastRow
If IsEmpty(Cells(i,"M"))And Not IsEmpty(Cells(i,"N")) Then
Cels(i,"M").Value = "Funded"
End If
Next n

End Sub

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!