HI Guys, I am trying to get the font type to change on a conditional format
basis.
The screen options let me select colours but I would like to change the font
type which is visible but greyed out. ?? Any help appreciated

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target

If .Value > 100 Then

.Font.Name = "Marlett"
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"frankod" <(E-Mail Removed)> wrote in message
news:045F4814-9C8B-4923-92C2-(E-Mail Removed)...
> HI Guys, I am trying to get the font type to change on a conditional
> format
> basis.
> The screen options let me select colours but I would like to change the
> font
> type which is visible but greyed out. ?? Any help appreciated

Thanks Bob - will give it a go.
Franko

"Bob Phillips" wrote:

> Private Sub Worksheet_Change(ByVal Target As Range)
> Const WS_RANGE As String = "H1:H10" '<== change to suit
>
> On Error GoTo ws_exit
> Application.EnableEvents = False
>
> If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
> With Target
>
> If .Value > 100 Then
>
> .Font.Name = "Marlett"
> End If
> End With
> End If
>
> ws_exit:
> Application.EnableEvents = True
> End Sub
>
> 'This is worksheet event code, which means that it needs to be
> 'placed in the appropriate worksheet code module, not a standard
> 'code module. To do this, right-click on the sheet tab, select
> 'the View Code option from the menu, and paste the code in.
>
>
> --
> HTH
>
> Bob
>
> (there's no email, no snail mail, but somewhere should be gmail in my addy)
>
> "frankod" <(E-Mail Removed)> wrote in message
> news:045F4814-9C8B-4923-92C2-(E-Mail Removed)...
> > HI Guys, I am trying to get the font type to change on a conditional
> > format
> > basis.
> > The screen options let me select colours but I would like to change the
> > font
> > type which is visible but greyed out. ?? Any help appreciated
>
>
>