View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
kmwhitt kmwhitt is offline
external usenet poster
 
Posts: 36
Default Msgbox Code Help Please....

BTW -

Here is the code currently being used to place the check mark:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("D12:G549,F5:F8")) Is Nothing Then
With Target
If .Value = "a" Then
..Value = ""
Else
..Value = "a"
..Font.Name = "Marlett"
End If
End With
End If

sub_exit:
Application.EnableEvents = True
End Sub

I don't know if what I want to do has to be tied in with this......

Thanks again,

Kevin

"kmwhitt" wrote:

When a user double clicks on cell F6 one of two things can happen based upon
whether or not the text in cell C5 contains the string "MDF":

1) If "MDF" is found within C5, a check mark is placed in the cell. I
already have code set up to place a Marlette check box in several different
cells including this one.

2) If "MDF" is not found within C5, an error message pops up and states",
This option is not availabe for (actual contents of C5). Please change the
doorstyle to MDF Painted to proceed.

Would someone please help me write this code?

Thanks,

Kevin