Popup der skriver hvad der står i angivne celler

Sub tst()
MsgBox ("") & "Du har importeret data fra :" & vbLf & Cells(1, 1) & vbLf & Cells(2, 1) & vbLf & Cells(3, 1) & " og " & Cells(4, 1)
End Sub

jep. Det virker lige som det skal.

Er det muligt at at formatere teksten i boksen så noget tekst eks. er større eller er skrevet med fed

Jeg mener her at a1 skal være fed og a2 skal være str.14

ikke mig bekendt desværre

OK, men hvis man kunne ville det være rart.
Kan jeg så istedet kombinere følgende?

Jeg har en popup som stiller følgende spg.

Dim Svar
Svar = MsgBox("Vil du fortsætte", vbYesNo)
    If Svar = 6 Then '6 = Ja
        'den kode du vil afvikle
            Else
        Exit Function
    End If

Kan jeg i dette spørgsmål få tilføjet mine data fra dette spørgsmål , altså
spørgsmål incl data fra nogle celler.
Dim Svar
Svar = MsgBox("Vil du fortsætte", vbYesNo)
    If Svar = 6 Then '6 = Ja
        'den kode du vil afvikle
            Else
        Exit Function
    End If

+

Sub tst()
MsgBox ("") & "Du har importeret data fra :" & vbLf & Cells(1, 1) & vbLf & Cells(2, 1) & vbLf & Cells(3, 1) & " og " & Cells(4, 1)
End Sub

I en popup!

har først lige set din kommentar
er ikke helt sikker på hvad du mener - kan du uddybe

Jeg har lige selv løst problemet da det bare var en kombinationsting mellem noget tekst skrevet direkte i koden og så nogle informationer hentet fra nogle bestemte celler.

Men tak for hjælpen med mit oprindelige spørgsmål ;-)