Prova tag e allegati

[Andrea_]

Prova tag

Sub Test()

    Dim a As String
    Dim b As String
    
        a = "Buongiorno"
        b = "Buonanotte"
    
    If Range("A1") = 1 Then
        a
    Else
        b
    End If
    
End Sub