I'm not an Excel vba person so I don't know why this doesn't work, any
help is appericated
I'm trying to get the first three characters of the value that's in
cell A3 and store it in the GetVal string variable. This keeps
erroring with the message 'Variable not defined' and it highlights the
A3 on the GetVal line

Dim GetVal As String
Sheets("Dollars").Select
Range("A3").Select
GetVal = Mid(A3, 1, 3) <--highlights A3 after error message
If GetVal = "Oct" then
....etc
end if

thanks
bobh.

Hi Bob,

Am Thu, 7 Jun 2012 06:37:54 -0700 (PDT) schrieb bobh:


> GetVal = Mid(A3, 1, 3) <--highlights A3 after error message

GetVal = Mid([A3], 1, 3)


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Sub dural()
GetVal = Mid(Range("A3").Value, 1, 3)
MsgBox GetVal
End Sub

On Thursday, June 7, 2012 8:37:54 AM UTC-5, bobh wrote:
> I'm not an Excel vba person so I don't know why this doesn't work, any
> help is appericated
> I'm trying to get the first three characters of the value that's in
> cell A3 and store it in the GetVal string variable. This keeps
> erroring with the message 'Variable not defined' and it highlights the
> A3 on the GetVal line
>
> Dim GetVal As String
> Sheets("Dollars").Select
> Range("A3").Select
> GetVal = Mid(A3, 1, 3) <--highlights A3 after error message
> If GetVal = "Oct" then
> ...etc
> end if
>
> thanks
> bobh.
You needed to use Range("a3") but
========
if mid(Sheets("Dollars") _
..Range("A3"),1,3) ="Oct" then
do this
else
do that
end if

or you could have used INSTR

On Jun 7, 9:37*am, bobh <vulca...@yahoo.com> wrote:
> I'm not an Excel vba person so I don't know why this doesn't work, any
> help is appericated
> I'm trying to get the first three characters of the value that's in
> cell A3 and store it in the GetVal string variable. This keeps
> erroring with the message 'Variable not defined' and it highlights the
> A3 on the GetVal line
>
> Dim GetVal As String
> Sheets("Dollars").Select
> Range("A3").Select
> GetVal = Mid(A3, 1, 3) *<--highlights A3 after error message
> If GetVal = "Oct" then
> ...etc
> end if
>
> thanks
> bobh.

Thanks all...
bobh.