Locate specific values in column

[polavar]

How to know the relative locations of cells having following values in column Q.

1) ATP
2) Glucose
3) Protein

If these values are not there in that column then I should get msgbox saying that these values are not there in the column'Q'

 

[Stretchwickster]

  Dim foundRange as Range
  Dim searchString as String
  ...
  searchString = "ATP"
  Set foundRange = Columns("Q").Find(What:=searchString,    LookIn:=xlValues, LookAt:=xlWhole)
  if foundRange = Nothing then
    Msgbox "Unable to find" & searchString
  else
    foundRange.Select
  end if

You can substitute the foundRange.Select line for any (Range object) property you might find useful such as foundRange.Address - have a look in the VBA help for the properties of Range.

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)