No Data selected to parse - Run time error

Hello lads,

I have faced macro error on below code. Can you able to support on this. Enclosed pictures for you to review

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Sub Packlist_Parts_Weights(Optional w As Worksheet)
'
' Last Updated - 27/10/2016 - BO
'

Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In Selection.Areas
Rng.TextToColumns Destination:=Rng.Resize(1, 1), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 2), Array(12, 2), Array(23, 2), Array( _
44, 1), Array(56, 1), Array(80, 1), Array(92, 1), Array(104, 1), Array(118, 1)), TrailingMinusNumbers:=True
Next Rng
Application.ScreenUpdating = True

End Sub[/CODE]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)