Please help with Multiple Subs

ch715a

New member
Joined
Nov 6, 2013
Messages
1
Reaction score
0
Points
0
Hi. I'm pretty good on excel, but know nothing about VBA, so I'm trying to learn as I go (use it at work), but cannot fathom this out. I have the following sub on a document:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Range("F8,F10")
Cell.Value = Application.RoundUp(Cell.Value, -1)
Next
End Sub
I need to add something to it that I know works on it's own, but can't seem to work out how to add it when the existing sub is there: (I've taken out the text for the msgbox as it's for work).

If Range("B2").Value > 400000 And Range("B3").Value > 0.8 Then
MsgBox "text"

Can anyone offer a solution? I'm sure this is really easy, but like I said, I have no formal knowledge of VBA.

Thanks to whoever fixes this for me :)
 
Last edited by a moderator:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Range("F8,F10")
  Cell.Value = Application.RoundUp(Cell.Value, -1)
Next
If Range("B2").Value > 400000 And Range("B3").Value > 0.8 Then MsgBox "text"
End Sub
?
 
Back
Top