Problem in msgbox

[girishkini]

Hi,

I ve created a calculator which calculates the manpower required for a operation. If the operator increases 28 then I need a pop up box which says max operators can be 28. I ve the code but it tells me run time error 13.

Private Sub Worksheet_Change(ByVal Target As Range)

Set Target = Me.Range("AE2:AM2")


If Target.Value > 28 Then
MsgBox "Max Operator available is 28 in Shift 1."
End If


End Sub

The input cells are AE2, AI2 and AM2.

So Wht wrong am I doing here

[AndyLitch]

Please Login or Register  to view this content.

[girishkini]

Hi AndyLitch,

So How do I proceed with this??

[AndyLitch]

Please Login or Register  to view this content.

Change the address on line 2 and try that