Как совместить эти два макроса? (Excel 2010)

Question

У меня нет абсолютно никакого опыта в программировании макросов (но я все еще могу записывать макросы, и это мне помогает)

Итак, я спрашиваю, как «вставить» эту часть макроса в целый код макроса? Вот они, весь макрос:

    Sub CaseOpen1()
'
' CaseOpen1 Macro
'

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

И часть макроса, которую я хочу «вставить в»:

    CaseOpen1 Macro
 Dim rng As Range
 Set rng = ActiveSheet.Range("G5")
 '  
 '
 '
 'With rng.Interior
 '

Да, и если вы считаете, что в одном из кодов есть ошибка, вы можете исправить ее. Вы обязаны делать лучше, чем я.

Вся помощь приветствуется. :)

Answer 1

Как это?

Sub Sample()
    Dim ws As Worksheet
    Dim rng As Range

    '~~> Change this to the relevant worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("G5")

    With rng.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub