On click macro if cell starts with "D"

[tonywatsonhelp]

Hi Everyone,

I need a macro that runs macro "Do the Ds" if someone clicks in the the range "D12:AXY1500" and the cell contains text starting with the letter "D".

keep getting errors please help if you can

Thanks

Tony

 

[nemmi69]

This should go in the sheet being checked. "Msgbox" is just there to let you know it worked. The line below "'Do_the_Ds" minus the " ' " is the macro to be called.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D12:AXY1500")) Is Nothing Then
            If Left(UCase(Target.Value), 1) = "D" Then
            MsgBox "Do the Ds"
            'Do_the_Ds
            End If
        End If
    End If
End Sub

 

[tonywatsonhelp]

Hi Nemmi69
This is perfect

Thank you :-0