I have the following code below to input a value in cell S1 on sheet "Payments"
No value is being inputted via the message box on Cell S1
It would be appreciated if someone could kindly amend my code
Code:
Sub InputamounttoSettle()
With Sheets("Payments")
.Range("S1").Select
MsgBox ("Enter the amount to settle")
End With
End Sub
No value is being inputted via the message box on Cell S1
It would be appreciated if someone could kindly amend my code