I want to create a macro that will check a cell (E5) which is a formula
=IF(ABS(SUM(J70:BD70))1,"Not Balanced","Balanced")
and if it has "Balanced" , then I want to put "Processed" in cell G6 and put
a time stamp in cell F6, if "Not Balanced" , then zero out cell G6 and F6?

Here is what I have so far that is trying to just display a text box , so be
kind

Sub ProB()
Dim GetDealNStat As String
Cells(5, 5).Select
GetDealNStat = Selection.Value
If GetDelNStat = "Balanced" Then
MsgBox "RECON Balanced", GetDealNStat, vbExclamation
Else
MsgBox "Deal is not Balanced, Please balance deal",
GetDealNStat, vbExclamation
End If
End Sub

Maybe

Sub ProB()
Dim GetDealNStat As String
GetDealNStat = Cells(5, 5).Value
If Cells(5, 5).Value = "Balanced" Then

MsgBox "RECON Balanced " & GetDealNStat, vbExclamation
Else
MsgBox "Deal is not Balanced, Please balance deal " &
GetDealNStat, vbExclamation
End If
End Sub


Mike

"Don" wrote:

I want to create a macro that will check a cell (E5) which is a formula
=IF(ABS(SUM(J70:BD70))1,"Not Balanced","Balanced")
and if it has "Balanced" , then I want to put "Processed" in cell G6 and put
a time stamp in cell F6, if "Not Balanced" , then zero out cell G6 and F6?

Here is what I have so far that is trying to just display a text box , so be
kind

Sub ProB()
Dim GetDealNStat As String
Cells(5, 5).Select
GetDealNStat = Selection.Value
If GetDelNStat = "Balanced" Then
MsgBox "RECON Balanced", GetDealNStat, vbExclamation
Else
MsgBox "Deal is not Balanced, Please balance deal",
GetDealNStat, vbExclamation
End If
End Sub

Mike, this got it , thanks for the help

"Mike H" wrote:

Maybe

Sub ProB()
Dim GetDealNStat As String
GetDealNStat = Cells(5, 5).Value
If Cells(5, 5).Value = "Balanced" Then

MsgBox "RECON Balanced " & GetDealNStat, vbExclamation
Else
MsgBox "Deal is not Balanced, Please balance deal " &
GetDealNStat, vbExclamation
End If
End Sub


Mike

"Don" wrote:

I want to create a macro that will check a cell (E5) which is a formula
=IF(ABS(SUM(J70:BD70))1,"Not Balanced","Balanced")
and if it has "Balanced" , then I want to put "Processed" in cell G6 and put
a time stamp in cell F6, if "Not Balanced" , then zero out cell G6 and F6?

Here is what I have so far that is trying to just display a text box , so be
kind

Sub ProB()
Dim GetDealNStat As String
Cells(5, 5).Select
GetDealNStat = Selection.Value
If GetDelNStat = "Balanced" Then
MsgBox "RECON Balanced", GetDealNStat, vbExclamation
Else
MsgBox "Deal is not Balanced, Please balance deal",
GetDealNStat, vbExclamation
End If
End Sub

Glad I could help and thanks for the feedback

Mike

"Don" wrote:

Mike, this got it , thanks for the help

"Mike H" wrote:

Maybe

Sub ProB()
Dim GetDealNStat As String
GetDealNStat = Cells(5, 5).Value
If Cells(5, 5).Value = "Balanced" Then

MsgBox "RECON Balanced " & GetDealNStat, vbExclamation
Else
MsgBox "Deal is not Balanced, Please balance deal " &
GetDealNStat, vbExclamation
End If
End Sub


Mike

"Don" wrote:

I want to create a macro that will check a cell (E5) which is a formula
=IF(ABS(SUM(J70:BD70))1,"Not Balanced","Balanced")
and if it has "Balanced" , then I want to put "Processed" in cell G6 and put
a time stamp in cell F6, if "Not Balanced" , then zero out cell G6 and F6?

Here is what I have so far that is trying to just display a text box , so be
kind

Sub ProB()
Dim GetDealNStat As String
Cells(5, 5).Select
GetDealNStat = Selection.Value
If GetDelNStat = "Balanced" Then
MsgBox "RECON Balanced", GetDealNStat, vbExclamation
Else
MsgBox "Deal is not Balanced, Please balance deal",
GetDealNStat, vbExclamation
End If
End Sub