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

springbrook

Board Regular
Joined
Feb 5, 2005
Messages
85
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
 

Some videos you may like

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes

Smitty

Legend
Joined
May 15, 2003
Messages
29,536
How about:
Code:
If Ucase(Target.Value) = "RIB ROOF" Then
Hope that helps,

Smitty
 

Watch MrExcel Video

Forum statistics

Threads
1,118,168
Messages
5,570,645
Members
412,335
Latest member
cinciri99
Top