title for input box

[Imran Azam]

Hi guys i have the code below ( thanks to some help)

what i want to do is have a title for the two inbut box, at the moment when i run the below macross and the message box comes up it has 'Micorsoft excel' as the heading and then is has the message ( e.g. Please enter the number you wish to replace")

how can i change or add a heading , i want it to says "Numbers"

below is my current code

Sub Test()

MyArray = Range("A1:K22").Value

EnterA:
A = InputBox("Please enter the number you wish to replace")
If Not IsNumeric(A) Then GoTo EnterA

If Application.CountIf(Range("A1:K22"), A) = 0 Then MsgBox "Number Not Found", vbOKOnly: GoTo EnterA

EnterB:
B = InputBox("Please enter the new number")
If Not IsNumeric(A) Then GoTo EnterB


For Y = 1 To UBound(MyArray, 1)
For X = 1 To UBound(MyArray, 2)
If MyArray(Y, X) = A * 1 Then MyArray(Y, X) = B
Next
Next

Range("A1:F10").Value = MyArray

End Sub

thanks for any help

 

[Eric W]

Change it to:

A = InputBox("Please enter the number you wish to replace", "Numbers")