VB Macro not executing on refresh

Question

Hi,
I have followed the following steps but it is not working can you please advice:
1.     Under VB Editor  this workbook  I added the following code:
Sub SAPBEXonRefresh(queryID As String, resultArea As Range)
Dim c As Range
For Each c In resultArea.Cells
If c.Value = "#" Then c.Value = "-"
Next c
End Sub
2.     Quit the VB Editor, and save the query as a new workbook.
On refreshing the workbook still the # sign appears in the result. If I go and check as in step 1 the routine still exist. How do I fix this issue?
Thank you,
sam

Answer 1

siv,
in the view code i typed exactly as you gave,
Sub SAPBEXonRefresh(queryID As String, resultArea As Range)
Dim ws As Worksheet
Set ws = resultArea.Parent
'Remove '#'
Selection.Cells.Replace What:="#", Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=True
resultArea(1, 1).Select
End Sub
still it is displyaing # in the result. please advice