inhoud van cel toevoegen aan variabele

[shidan]

goedemiddag,

ik heb een sheet met naam 'data'
ik wil de inhoud van de eerste cel (A1) in een variabele stoppen en kijken of deze een bepaalde waarde heeft (PRODUCTNAAM)
als deze de waarde PRODUCTNAAM heeft moet een procedure worden doorlopen.
(momenteel enkele een messagebox tonen met de inhoud van cel A1

ik krijg enkel een messagebox met 'waar' in??
wat doe ik fout?

Dim kolomnaam As String
Sheets("data").Select
Range("A1").Select
kolomnaam = Selection.Copy
MsgBox (Selection.Copy)
If kolomnaam = "PRODUCTNAAM" Then
   MsgBox (kolomnaam)
End If

 

[snb]

Dit is voldoende:

Sub tst()
  MsgBox [data!A1]
End Sub

met een variabele:

Sub tst()
  c0=[data!A1]
  msgbox c0
End Sub

 

[shidan]

thnx,

ik kan verder