Ciao.
Sono lieto di poterti dare una mano.
Procedi dunque così:

- apri un foglio vuoto di Excel;
- Vai su Strumenti, seleziona la voce "Macro" e dal menù che ti comparirà, scegli "Registra Nuova Macro";
- Dai un nome nella casella che ti verrà proposta e clicca su OK;

A questo punto esegui sul foglio vuoto di Excel le operazioni che citavi nel tuo primo messaggio e cioè selezionare un gruppo di celle, dargli un bordo e dargli un colore di riempimento.

Fatto questo, torna su Strumenti, vai di nuovo alla voce Macro e clicca sul menù che ti comparirà su "Interrompi registrazione".

Ora, sempre con il foglio di Excel in primo piano, premi e tieni premuto ALT e poi F11. Ti comparirà una nuova finestra che è il VBA Editor.

Sulla sinistra di questa finestra, recati sulla voce "Moduli" che avrà una sottovoce "Modulo"; fai un doppio click sinistro su questa voce. Comparirà sulla destra il codice relativo alla macro da te registrata.

Il tuo compito adesso sarà quello di copiare il codice che vedrai ed adattarlo ed al tuo programma con le variazioni necessarie.

Ad ogni buon conto, di seguito, ti posto il codice generato da una macro di prova che ho effettuato. Nell'esempio, evidenzio le celle dell'intervallo "E2:G12", gli metto un bordo nero intorno e le riempio con un celeste chiaro.

Ecco il codice VBA generato dalla MACRO:


codice:
Option Explicit

Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 26/01/2005 da Administrator
'

'
    Range("E2:G12").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .ColorIndex = 34
        .Pattern = xlSolid
    End With
    Range("I12").Select
End Sub
Buon lavoro dunque e fammi sapere qualcosa.