Or Option ?? (rib roof or RIB ROOF) etc

[springbrook]

This the code that I have a particular sheet,
What I want to do is for thi code to work on all ways of spelling "RIB ROOF", ie: Rib Roof, rib roof, RIB ROOF etc,

How can i write an 'or' option ( "rib roof" or RIB ROOF" ) etc


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Prompt As String, Title As String
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "RIB ROOF" Then
Prompt = "Do you wish to reverse roll the colour?"
Title = "Reverse Colour?"
If MsgBox(Prompt, vbYesNo, Title) = vbYes Then
'... code here
'example:
'MsgBox "Action performed on " & Target.Address & "."
MsgBox "Please state: 'Reverse Roll' or 'Colour Underside'"
End If
End If
End Sub



Many thanks in advance
Merry Christmas
Mark

 

[Smitty]

How about:

If Ucase(Target.Value) = "RIB ROOF" Then

Hope that helps,

Smitty