Sub Getit()
Dim GetRight As String
Worksheets("Report Current").Select
GetRight = (Right(D4, Len(D4), Find("" - "", D4) - 1))
GetRight = right(range("D4"),len(range("D4")-instr(1,range("D4"),"-"))
End Sub

--
When you lose your mind, you free your life.
Ever Notice how we use '' for comments in our posts even if they aren''t
expected to go into the code?


"DavidW" wrote:


I'm attempting to extract the data in a cell to the right of a
hyphen("-") and place it in a variable. I thought I could use the code
below, but it causes a compile error "Function or Sub not defined". The
word "Find" is highlighted and seems to be causing the error.

Does anyone have any suggestions? Once I get past the error, I might
have to adjust the code to make sure I'm getting the data I want.
Thanks

The contents of D4 is "9/1/2005-3/31/2006".
I need the "3/31/2006".
The workbook has multiple sheets. The cell I want is on worksheet
"Report Current".


Code:
--------------------
Sub Getit()
Dim GetRight As String
Worksheets("Report Current").Select
GetRight = (Right(D4, Len(D4), Find("" - "", D4) - 1))
End Sub
--------------------


--
DavidW
------------------------------------------------------------------------
DavidW's Profile: http://www.excelforum.com/member.php...o&userid=32630
View this thread: http://www.excelforum.com/showthread...hreadid=534595