Excel VBA запускает саб

Question

Как мне запустить приведенный ниже код?

Worksheets("Sheet1").Activate 
    'Can't select unless the sheet is active 
Dim Title As Integer, result As String 
titleDetail = Range("A1").Value 
If titleDetail = "Title" Then result = "Hyperlink" 
Selection.Offset(1, 0).Range("A1").Value = result   

Любой сценарий всегда должен начинаться с Private Sub, Public Sub и т. Д., Верно?Как определить, какой использовать?

Во-вторых, когда я сейчас объявляю свой диапазон (titleDetail = Range ("A1"). Value), он будет выглядеть правильно только в ячейке A1?Какой будет правильный синтаксис для просмотра любых ячеек из A1: C150?

Answer 1

Примерно так:

Sub RunThis()
    With Worksheets("Sheet1").Range("A1")
        .Offset(1, 0).Value = IIf(.Value = "Title", "Hyperlink", "")
    End With
End Sub