How to quote selected cell's value in MsgBox

[jovie]

Hi, I was trying to put selected cell's text in MsgBox
Like said , Range A contained all the item's name, and I want it to pop up a msgbox when Range E and Range F meet some requirement(This one I already write). But, I want the MsgBox show:" xxxxx(Range A's value) is low, Please refill ASAP!!"
However, I dun know how to quote RangeA's Value, Because I have quite a lot rows , I want it quote the row of RangeA's value.

 

[James006]

Hi,

Did you test the concatenation : Range("A2").Value & " is low, Please refill ASAP !! "

HTH

 

[jovie]

Hi,

Did you test the concatenation : Range("A2").Value & " is low, Please refill ASAP !! "

HTH

I don't want this type, Here is my code.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim item As String
Dim diameter As Variant

n = Range("c65535").End(xlUp).Row
For i = 1 To n

If Range("C" & i) > 5 And Range("D" & i) < 10 Then
item = Range("F" & i).Value
diameter = Range("G" & i).Value
MsgBox "Storage of " & item & " , " & diameter & " is low, please proceed to purchase."
If Range("C" & i) < 5 And Range("C" & i) > 0 And Range("D" & i) < 5 Then
item = Range("F" & i).Value
diameter = Range("G" & i).Value
MsgBox "Storage of " & item & " , " & diameter & " is low, please proceed to purchase."
End If
End If
Next
End Sub

Please ignore those column it is testing in another workbook.
Because I have many rows like 150 rows, so I want MsgBox to pop up and show which row is low storage...

 

[James006]

Hi again,

The event macro you have selected ... worksheet_change without any restrictions for the Target area ...will be fired each and every time there is a change in the sheet ...

Is it your intent ...?

 

[jovie]

Hi again,

The event macro you have selected ... worksheet_change without any restrictions for the Target area ...will be fired each and every time there is a change in the sheet ...

Is it your intent ...?

It is a problem also, because I want it show once and actually I want to set up a userform, however the file I intent to open is read-only file, so can't.
And I want it do now show up, till I open the workbook next time.

 

[jovie]

* show up once and don't show up till I open the workbook next time

 

[James006]

Have you tried to use Private Sub Workbook_Open() in the module called ThisWorkbook ?