Sub Testcurrent()
Dim current as variant, current1 as Variant
Dim rng a range
set rng = worksheets("Till").Range("H1")
current = worksheets("Till").Range("H1").Value
current1 = rng.Value
msgbox Current & " - " & Worksheets("Till").Range("H1").value & _
vbNewline & Current1 & " - " & rng.Value & vbNewline & _
rng.Address(external:=True)

End sub

--
Regards,
Tom Ogilvy


mushy_peas wrote in message
...
well i used
Sheets("Till").Select
so i was on the right sheet. but it doesn work
:O(


---
Message posted from http://www.ExcelForum.com/