Combine 2 Macros

Can anybody help me combine the 2 macros below:

Sub Macro1 ()
Sheets("FXMvt").Select
For Each Cell In Range("O5:O119")
If Cell.Value - 1 = Range("a1").Value Then
Cell.Select
End If
Next
If Range("A1").Value = Selection.Value - 1 Then
MsgBox ("Tomorrow - Check for FX deal - Maturity date !!!")
End If
End Sub



Sub Macro2 ()
Sheets("FXMvt").Select
For Each Cell In Range("O5:O119")
If Cell.Value = Range("a1").Value Then
Cell.Select
End If
Next
If Range("A1").Value = Selection.Value Then
MsgBox ("Today - Check for FX deal - Maturity date !!!")
End If

End Sub

thxs

Sub Macro1 ()
Sheets("FXMvt").Select
For Each Cell In Range("O5:O119")
If Cell.Value - 1 = Range("a1").Value Then
cell.Select
MsgBox ("Tomorrow - Check for FX deal - Maturity date !!!")
elseif Cell.Value = Range("a1").Value
cell.Select
MsgBox ("Today - Check for FX deal - Maturity date !!!")
End If
Next
End Sub

--
Regards,
Tom Ogilvy


"al007" <[email protected]> wrote in message
news:[email protected]...
> Can anybody help me combine the 2 macros below:
>
> Sub Macro1 ()
> Sheets("FXMvt").Select
> For Each Cell In Range("O5:O119")
> If Cell.Value - 1 = Range("a1").Value Then
> Cell.Select
> End If
> Next
> If Range("A1").Value = Selection.Value - 1 Then
> MsgBox ("Tomorrow - Check for FX deal - Maturity date !!!")
> End If
> End Sub
>
>
>
> Sub Macro2 ()
> Sheets("FXMvt").Select
> For Each Cell In Range("O5:O119")
> If Cell.Value = Range("a1").Value Then
> Cell.Select
> End If
> Next
> If Range("A1").Value = Selection.Value Then
> MsgBox ("Today - Check for FX deal - Maturity date !!!")
> End If
>
> End Sub
>
> thxs
>