Variabele in zoek/vervang in macro

[fotofons]

Ook na zoeken op internet oplossing niet gevonde.
Ik heb het volgende in een macro staan:

    Dim snaam As String
      Selection.Copy
   snaam = Selection
 
   Selection.Replace What:="fotofons", [B]Replacement:=snaam [/B], LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False

Vraag: Hoe maak ik gebruik van de variabele bij Replacement
Ik denk dat daar het probleem zit. De rest van het macro werkt goed. Alleen het zoeken en vervangen niet.
Vervang ik bij replacement snaam door "andere tekst" dan werkt het wel.

 

[Warme bakkertje]

Sub foto()
Dim snaam As String
snaam = Range("B1")
Range("B2:C4").Replace What:="fotofons", Replacement:=snaam, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

 

[fotofons]

Bedankt. Probleem opgelost. Ik had zelf een heel werkblad geselecteerd. Geruik van variabele was wel goed.:thumb: