特定のセル(セル(1,1))に値を代入する
┌──────────────────────────────────────┐
│Cells(1, 1).Value = "値"                                                    │
└──────────────────────────────────────┘
特定のセル(セル(1,1))に数式を代入する
┌──────────────────────────────────────┐
│Cells(1, 1).Formula = "=数式"                                               │
└──────────────────────────────────────┘

特定のセル(セル(1,1))を黒く塗る。
┌──────────────────────────────────────┐
│Cells(1, 1).Interior.Color = RGB(0, 0, 0)                                   │
└──────────────────────────────────────┘
特定の行(1行目)を黒く塗る。
┌──────────────────────────────────────┐
│Rows(1).Interior.Color = RGB(0, 0, 0)                                       │
└──────────────────────────────────────┘
特定の列(1列目)を黒く塗る。
┌──────────────────────────────────────┐
│Columns(1).Interior.Color = RGB(0, 0, 0)                                    │
└──────────────────────────────────────┘

「Like」を使う。
┌──────────────────────────────────────┐
│If Selection.Cells.Value Like "*[A-Za-z]*" Then                             │
│    MsgBox "英字を含む"                                                     │
│End If                                                                      │
└──────────────────────────────────────┘

反対の場合は、こう。
┌──────────────────────────────────────┐
│If Not Selection.Cells.Value Like "*[A-Za-z]*" Then                         │
│    MsgBox "英字を含まない"                                                 │
│End If                                                                      │
└──────────────────────────────────────┘
「If 調査対象 Not Like」ではなく「If Not 調査対象 Like」なので注意。

なお、単純に特定の文字(例えば「A」)を含むかの判定は「InStr()」を使う。
┌──────────────────────────────────────┐
│If InStr(Selection.Cells.Value, "A") > 0 Then                               │
│    MsgBox "Aを含む"                                                        │
│End If                                                                      │
└──────────────────────────────────────┘

反対の場合は、以下のいずれか。
┌──────────────────────────────────────┐
│If InStr(Selection.Cells.Value, "A") = 0 Then                               │
│    MsgBox "Aを含まない"                                                    │
│End If                                                                      │
├──────────────────────────────────────┤
│If Not InStr(Selection.Cells.Value, "A") > 0 Then                           │
│    MsgBox "Aを含まない"                                                    │
│End If                                                                      │
└──────────────────────────────────────┘