Gerar Nomes

Para criar uma função em VBA que gera nomes e dois sobrenomes aleatórios e imprime a partir da célula A1 com tamanho de fonte 14 e no formato texto, você pode utilizar o seguinte código. Este código vai gerar nomes e sobrenomes de uma lista pré-definida, então você pode ajustar as listas de acordo com suas preferências.

Function GerarNomeAleatorio() As String
    Dim Nomes As Variant
    Dim Sobrenomes As Variant
    Dim NomeAleatorio As String
    Dim Sobrenome1 As String
    Dim Sobrenome2 As String

    ' Listas de nomes e sobrenomes
    Nomes = Array("Ana", "João", "Maria", "José", "Luís", "Paula", "Carlos", "Sofia")
    Sobrenomes = Array("Silva", "Santos", "Oliveira", "Pereira", "Souza", "Rodrigues", "Fernandes", "Gonçalves")

    Randomize

    ' Selecionar aleatoriamente um nome e dois sobrenomes
    NomeAleatorio = Nomes(Int((UBound(Nomes) + 1) * Rnd))
    Sobrenome1 = Sobrenomes(Int((UBound(Sobrenomes) + 1) * Rnd))
    Sobrenome2 = Sobrenomes(Int((UBound(Sobrenomes) + 1) * Rnd))

    ' Combinar para formar um nome completo
    GerarNomeAleatorio = NomeAleatorio & " " & Sobrenome1 & " " & Sobrenome2
End Function

Sub ImprimirNomes()
    Dim i As Integer
    Dim NomeCompleto As String

    ' Configurar a coluna A
    With Range("A:A")
        .NumberFormat = "@"
        .Font.Size = 14
    End With

    ' Gerar e imprimir 10 nomes
    For i = 1 To 10
        NomeCompleto = GerarNomeAleatorio()
        Cells(i, 1).Value = NomeCompleto
    Next i
End Sub