Coding Issue VB, Greater than

[nkf53]

Just trying to figure out why my code isn't working, Could anyone help point out some flaws? or give a possible solution?
Option Explicit

Sub box()

If ActiveSheet.Range("f1:f1000").Select > ActiveSheet.Range("g1:g1000").Select Then
msgbox ("Min quantity not met")
Else
End If
Exit Sub



End Sub

[nkf53]

I'm an idiot, I figured out I could basically do a email setup by setting it to a yes no column, then doing a basic if then statement using yes, no. Thanks for the help as always!