Macro Theme Color

[howard]

I recorded a macro below and then tried to streamline the code but get a run time error "Invalid use of property


It would be appreciated if someone could kindly amend my code

Recorded Macro

 Sub Macro3()
'
' Macro3 Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 6299648
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
End Sub

Streamlined Macro

 Sub ColourScheme()
With Sheets("Imported Data")
With Range("H1")
        .Interior
        .Pattern = xlSolid
           .Color = 6299648
       .Font
        .ThemeColor = xlThemeColorDark1
       .Font.Bold = True
            End With
              End With
              
 End Sub

 

[HaHoBe]

Hi Howard,

maybe try

Sub ColourScheme_mod()

  With Sheets("Imported Data").Range("H1")
    With .Interior
      .Pattern = xlSolid
      .Color = 6299648
    End With
    With .Font
      .ThemeColor = xlThemeColorDark1
      .Bold = True
    End With
  End With

End Sub

Ciao,
Hoolger

 

[howard]

Many thanks for the help. Code works perfectly