If...Then...Else Query

[ianian]

Hi,

I used this code today:

SubShoe ()

Dim Shoe1 As Range

Set Shoe1 = Range("A20:A70").Find(what:="Shoes").Offset(2,0)
If Shoe1.Value <> " " Then

ElseIf Shoe1.Value = " " Then

End If

End Sub

However my code stops executing before the ElseIf command although Shoe1.Value is = " ". Can someone please advise?

Thank you!

 

[AlphaFrog]

There is a space between the quotes
Shoe1.Value = " "

This is not testing if Shoe1.Value is blank or empty. It is testing if it is equal to exactly one space character.

Try something like this...

[color=darkblue]If[/color] Shoe1.Value <> "" [color=darkblue]Then[/color]
   [color=green]'Shoe1 is not empty[/color]
   [color=green]'Note: no space between quotes[/color]
[color=darkblue]Else[/color]
   [color=green]'Shoe1 is empty[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]

 

[ianian]

Thank you so much! It works now