Use a select case statement in VBA


select case value

case "bull nose"
"bull nose.gif"
end slect


You could also simply make the file
filename = "c:/GIFs/" & value & ".gif"
'dir will return a null string if it doesn't find the file
if dir(filename) < "" then
' enter code here
else
' enter code here
end if

"Jeff W." wrote:

I have a comma delimited file that I will be importing to a blank sheet
then transferring data to certain cells, which I can handle but I need to

add an "If statement" and I'm not sure how to do it, basically what I want
to do is this;

In the comma delimited file in the third position there are some words like;

Bull nose
Center Drill
Taper Mill

And a few others, and what I want to do is test them to see if they match
the names
of the image files in the directory /GIFS

it looks to me like I could use something simular to the following;

if value = "bull nose", import picture named "bull nose.gif" from sub
directory /GIFS
if value = "center drill", import picture named "center drill.gif" from
sub directory /GIFS
if value = "Taper Mill", import picture named "taper mill.gif" from sub
directory /GIFS

and so on down thru the list of names to check for

Lets say I have 18 words or phrases, I would have 18 matching image files
that I want to
run through an if statement or 18 if statements I guess.

just not sure how to formulate the if statement to test the value


Any advice will be greatly appreciated

TIA

Jeff White