After copy & paste show message box

Posted by Jim on June 30, 2001 10:21 AM

I'm using the following code to copy and paste and i
need a message box to appear after the copy and paste
if the number in C23 is >2 ,any ideas?
Private Sub CommandButton13_Click()
Range("Sheet2!B6:H11").Offset(Rw, 0 ).Copy
SelectNextBlankDown
ActiveCell.PasteSpecial xlPasteAll
If [C6] > 2 Then
[C23].Font.ColorIndex = 3
End if
End Sub
Private Sub SelectNextBlank Down
Range("B23").Select
End Sub

Posted by steve w on June 30, 2001 11:23 AM

Hi jim
try this
Private Sub CommandButton13_Click()

Range("Sheet2!B6:H11").Offset(Rw, 0).Copy
SelectNextBlankDown
ActiveCell.PasteSpecial xlPasteAll
If [C6] > 2 Then
[C23].Font.ColorIndex = 3
End If
If Range("b23") > 2 Then
MsgBox "Greater"
Else
MsgBox "Less"
End If
End Sub
Private Sub SelectNextBlankDown()
Range("B23").Select
End Sub
Hope this helps
steve w