Formatere en linie til at ændre størrelse i vba

Jeg kan heller ikke lave om på skriftstørrelsen,men Fed og ikke fed

1. Formlen er =ER.TOM($C$5)

2. formlen er = IKKE(ER.TOM($C$5))

Hvordan ændres C5, ved indtastning, eller ved at have en formel i den ??

Hvis du  selv taster i C5, så sæt denne kode ind i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5")) Is Nothing Then
        If Target = "" Then
            With [C10].Font
                .FontStyle = "Fed"
                .Size = 14
            End With
        Else
            With [C10].Font
                .FontStyle = "Normal"
                .Size = 12
            End With
        End If
    End If
End Sub

JEg har lidt problemer med koden:

Hvis jeg selv indtaster i c5 skriver den fejl i linien:
If Target = "" Then

Men det der er gældende er at c5 faktisk henter informationer fra en anden celle.
Cellen som jeg indtaster i har jeg navngivet "NAVN1", men cellen ligger i et helt andet ark.

Kan det så løses?

OK, fjern den forrige makro.
Sæt denne ind i ThisWorkbook modulet
Ret "ark2" til det ark som Celle c10 skal ændres i.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Range("NAVN1")) Is Nothing Then
        If Target = "" Then
            With Worksheets("ark2").[C10].Font
                .FontStyle = "Fed"
                .Size = 14
            End With
        Else
            With Worksheets("ark2").[C10].Font
                .FontStyle = "Normal"
                .Size = 12
            End With
        End If
    End If
End Sub

Pinligt at jeg først har set det nu
MAgne tak for hjælpen

Nu har jeg lige siddet og efterprøvet den ovenstående problemstilling og den giver mig problemer.

Hvis jeg ændrer teksten direkte i feltet navn1 formaterer den tingene fuldstændig som den skal, men...

Det forholder sig sådan at feltet Navn1 er linket sammen med et felt i en userform.
Hvis jeg ændrer feltet via min userform går den galt. Makroen stopper og viser at der er fejl i følgende linie.

If Not Intersect(Target, Sh.Range("NAVN1")) Is Nothing Then

prøv at rette linien til denne

If Not Intersect(Target, Range("NAVN1")) Is Nothing Then

Nej den kommer desværre med samme fejl.
Kunne man ikke placere koden således at den tjekker hver gang ark2 bliver aktivt?
(Lidt lige som vi gjorde i starten)

Gætter på at koden skal ligge i Userform feltet

noget ala:

If Sheets(1).Cells(5, 3) = "" Then
Sheets(1).Cells(10, 3).Font.Bold = True
    With Sheets(1).Cells(10, 3).Font
        .Bold = True
        .Name = "Arial"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
   
Else
    Sheets(1).Cells(10, 3).Font.Bold = False
    With Sheets(1).Cells(10, 3).Font
        .Bold = False
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End If

du kan sætte det ind i koden, på din userform

F. eks. på en commandiknap

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
        With Worksheets("ark2").[C10].Font
            .FontStyle = "Fed"
            .Size = 14
        End With
    Else
        With Worksheets("ark2").[C10].Font
            .FontStyle = "Normal"
            .Size = 12
        End With
    End If
End Sub

jeg har lige prøvet kabbaks løsning og den virker fint, men jeg vil meget gerne undgå kommando knappen ,hvis det kan lade sig gøre.

Kan ikke lige gennemskue hvor jeg evt. skulle placere exelents kode henne.
Skal der ikke stå noget med private sub..... ?

Ok så sæt den under tekstboksen, den trikker når tekstboksen forlades.
Ret selv navnet på tekstboksen, så det passer.


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
f TextBox1 = "" Then
        With Worksheets("ark2").[C10].Font
            .FontStyle = "Fed"
            .Size = 14
        End With
    Else
        With Worksheets("ark2").[C10].Font
            .FontStyle = "Normal"
            .Size = 12
        End With
    End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if TextBox1 = "" Then
        With Worksheets("ark2").[C10].Font
            .FontStyle = "Fed"
            .Size = 14
        End With
    Else
        With Worksheets("ark2").[C10].Font
            .FontStyle = "Normal"
            .Size = 12
        End With
    End If
End Sub

Så lykkedes det.
så skal man ikke lægere huske at trykke på noget for at få det til at virke.
Tak for tilrettelserne