How to reference a cell into a Dialog Box ?

[Rob]

Hi,
In the code below I have included a Dialog Box named CriteriaReached to show
if cell g6 < h6 < k6.

My question being. Is it possible to reference a cell with text in it into
the Box?

Sub CheckVolumeRise1()
If Range("g6") < Range("h6") < Range("k6") Then
CriteriaReached.Show
End If
End Sub

Thank you.

 

[Jacob Skaria]

Try

Dim varRange As Variant
varRange = Application.InputBox("Select cell", Type:=8)

 

[Rob]

Thanks Jacob.

Try

Dim varRange As Variant
varRange = Application.InputBox("Select cell", Type:=8)

-----------------
The code should be
If Range("g6") < Range("h6") And Range("h6") < Range("k6") Then

End If