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
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
