Calling a Sub within the Main Macro

[BrittKnee]

I am having issues with this string of code:

Sub Format_Workbook_Pt2()

Sub ConvertTextToNumber()
Sheets("All_Data").Select
Range("C:C").Select
Selection.TextToColumns _
Destination:=Range("A:A"), _
DataType:=xlDelimited
End Sub
End Sub


I wanted to keep Sub Frmat_Worbook_Pt2() as the main macro as I build more code into the main macro.
Thanks!

 

[Fluff]

You need to do it like

Sub Format_Workbook_Pt2()
   Call ConvertTextToNumber
End Sub
Sub ConvertTextToNumber()
Sheets("All_Data").Select
Range("C:C").Select
Selection.TextToColumns _
Destination:=Range("A:A"), _
DataType:=xlDelimited
End Sub

 

[Joe4]

You CANNOT imbed one macro inside another. They would be two separate macros, and you would just call one from the other:

[COLOR=#333333]Sub Format_Workbook_Pt2()[/COLOR]
[B]    [COLOR=#0000ff]Call ConvertTextToNumber[/COLOR][/B]
End Sub

[COLOR=#333333]Sub ConvertTextToNumber()[/COLOR]
[COLOR=#333333]    Sheets("All_Data").Select[/COLOR]
[COLOR=#333333]    Range("C:C").Select[/COLOR]
[COLOR=#333333]    Selection.TextToColumns _[/COLOR]
[COLOR=#333333]    Destination:=Range("A:A"), _[/COLOR]
[COLOR=#333333]    DataType:=xlDelimited[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[BrittKnee]

Thanks!

 

[Fluff]

Glad we could help & thanks for the feedback