Removing # sign in the Report for Blank Value

Question

Guys,
I was trying to use the below code VB, but i am getting error like Expected: End of statement.
I am new to VB, do anyone have step by step guide to implement the below macro for Excel and remove the # from BEx analyzer.
Do i need write this macro for each query? I totally dont understand the link.
Kindly guide to run the macro and avoid # in reporting.
Do I need to implement this macro on each end user client server ?
Removing '#' in Analyzer (Report)
In ODS, there are records having a value BLANK/EMPTY for some of the fields. EX: Field: `Creation Date' and there is no value for some of the records.
For the same, when I execute the query in Analyzer, the value `#' is displaying in place of `BLANK' value for DATE and other Characteristic fields. Here, I want to show it as `BLANK/SPACE' instead of `#'. How to do this?
I had a similar problem and our client didn't want to see # signs in the report. And this is what I did. I created a marco in Workbook as SAPBEXonRefresh and run my code in Visual Basic editor. You can run same code in query also as when you will refresh query this # sign will be taken care. You can see similar code in SAP market place.
I will still suggest not to take out # sign as this represent no value in DataMart. And this is SAP standard. I did convince my client for this and later they were OK with it.
The codes are below:
Sub SAPBEXonRefresh(queryID As String, resultArea As Range)
If queryID = "SAPBEXq0001" Then
resultArea.Select
'Remove '#'
Selection.Cells.Replace What:="#", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=True
'Remove 'Not assigned'
Selection.Cells.Replace What:="Not assigned", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=True
End If
' Set focus back to top of results
resultArea(1, 1).Select
End Sub
Regards,
Anand
Edited by: araj123 on Oct 19, 2010 4:51 PM
Edited by: araj123 on Oct 19, 2010 4:58 PM

Answer 1

Anand,
This is what I have used in the past and works just fine
Sub HashRemoval()
    Application.ScreenUpdating = False
    Cells.Replace What:="#", Replacement:="", LookAt:=xlWhole, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Application.ScreenUpdating = True
End Sub
But I have this as a separate macro that can be called any time.
Cheers
Craig