J
John
Simple problem, but I'm confused, I'm trying to call a module "TextToData"
within the following code, but its coming up with a compile error. My code
(I thought would work) is. Info on how to fix would be great (I know the
individual parts work)
Sub GenerateReport()
Sheets("Sales Mix").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("A1").Select
Application.ScreenUpdating = False
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Sheets("Sales Mix").Select
Range("A1").Select
TextToData
Sheets("Report").Select
Range("A1").Select
End Sub
within the following code, but its coming up with a compile error. My code
(I thought would work) is. Info on how to fix would be great (I know the
individual parts work)
Sub GenerateReport()
Sheets("Sales Mix").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("A1").Select
Application.ScreenUpdating = False
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Sheets("Sales Mix").Select
Range("A1").Select
TextToData
Sheets("Report").Select
Range("A1").Select
End Sub