WorksheetFunctions

[PGalla06]

I'm trying to use the WorksheetFunction.Mid to cut out a piece of text from a string and place it in an array. However, I can't get the Mid function to work. I keep getting a a 438 run time error message. Below is the code that I'm using.

Sub MySub()

Dim x As Variant

Dim MyRange As Range

Set MyRange = Worksheets("Sheet1").Range("A1")

x = Application.WorksheetFunction.Mid(MyRange, 2, 5)

MsgBox x

End Sub

Any help would be greatly appreciated.

Thank,
Peter

[Trevor Shuttleworth]

Peter

just use:

x = Mid(MyRange, 2, 5)

Regards

Trevor


"PGalla06" <[email protected]> wrote in
message news:[email protected]...
>
> I'm trying to use the WorksheetFunction.Mid to cut out a piece of text
> from a string and place it in an array. However, I can't get the Mid
> function to work. I keep getting a a 438 run time error message.
> Below is the code that I'm using.
>
> Sub MySub()
>
> Dim x As Variant
>
> Dim MyRange As Range
>
> Set MyRange = Worksheets("Sheet1").Range("A1")
>
> x = Application.WorksheetFunction.Mid(MyRange, 2, 5)
>
> MsgBox x
>
> End Sub
>
> Any help would be greatly appreciated.
>
> Thank,
> Peter
>
>
> --
> PGalla06
> ------------------------------------------------------------------------
> PGalla06's Profile:
> http://www.excelforum.com/member.php...o&userid=24260
> View this thread: http://www.excelforum.com/showthread...hreadid=471936
>