Slette Formaterne kursiv og understregning

Prøv:

    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.Italic = False
    Selection.Font.Bold = False

Har prøvet dette  :
laver fejl

Sheets("Ark2").Select
  With Selection.Interior
    Range("B15:E20").Pattern = xlNone
    Range("B15:E20").TintAndShade = 0
    Range("B15:E20").PatternTintAndShade = 0
    End With
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.Italic = False
    Selection.Font.Bold = False

Sheets("Ark2").Select
  Range("B15:E20").Select
   
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
        Selection.Font.Underline = xlUnderlineStyleNone
        Selection.Font.Italic = False
        Selection.Font.Bold = False

Så lang så godt  :-)

Ja, men hvorfor ændre du i koden 😉

Flyt: Range("B15:E20") op under Sheets("Ark2").Select og tilføj .select

Det er jo lige det  ;-)  Den er rød endnu  :-)
  skal lige  sammenlign noget    :-)

Ja sådan her  :-)

Sheets("Ark2").Select
  Range("B15:E20").Select
   
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
        Selection.Font.Underline = xlUnderlineStyleNone
        Selection.Font.Italic = False
        Selection.Font.Bold = False

Prøv:

Sheets("Ark2").Select
Range("B15:E20").select
  With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.Italic = False
    Selection.Font.Bold = False

Jeg er lidt langsom,  ny mobil 😁

Det er fra den anden kode den sletter den røde
kan ikke lige gennemskue forskellig

hovvv hvor dejligt  ;-) 
'
    Sheets("Ark2").Select
    Range("B5:E10").Select
   
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True
    Selection.Font.Bold = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Hvordan kan jeg sætte Skrifttype og Skriftstørrelse tilbage efter hvad EXCEL er sat til ?

Den starter op med denne her : 

Skrifttype = Calibri
Skriftstørrelse = 11

Jeg prøvet sådan en løsning  her :

Worksheets("Hjælpe Ark").Range("A72").Copy _
        Destination:=Worksheets("Kørselsrapport").Range("A5:G62")

Det kan nu godt lad sig gøre 😊 "Næsten"

Men den fjerner den "Tyk bundkant" linjen?

Kan men få den til at lave sådan en igen?

Sæt "Tyk bundkant" på A72

Huha  så kom der gang i landbruget  over det hele med tykke  bundkanter :-)