US Dollar sign in a cell

[flamme20]

I've got a macro which copies data from one sheet in one workbook into another sheet in the same workbook based on certain criteria with formatting changes applied:

Sheets("Sheet1").Select
Range("J" & CStr(LSearchRow)).Select
Selection.Copy

Sheets("Sheet2").Select
Range("AA" & CStr(LCopyToRow)).Select
ActiveSheet.Paste
With Range("AA" & CStr(LCopyToRow)).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.ColorIndex = xlAutomatic
End With
With Range("AA" & CStr(LCopyToRow)).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
End With
With Range("AA" & CStr(LCopyToRow)).Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With

I want that in AA cell was the price without dollar sign, so I applied number format, but it still turns up with $.
Anything to amend? Can someone give me an advice?

 

[Sanjeev1976]

I've got a macro which copies data from one sheet in one workbook into another sheet in the same workbook based on certain criteria with formatting changes applied:

Sheets("Sheet1").Select
Range("J" & CStr(LSearchRow)).Select
Selection.Copy

Sheets("Sheet2").Select
Range("AA" & CStr(LCopyToRow)).Select
ActiveSheet.Paste
With Range("AA" & CStr(LCopyToRow)).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.ColorIndex = xlAutomatic
End With
With Range("AA" & CStr(LCopyToRow)).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
End With
With Range("AA" & CStr(LCopyToRow)).Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With

I want that in AA cell was the price without dollar sign, so I applied number format, but it still turns up with $.
Anything to amend? Can someone give me an advice?

Try to change the code from :

With Range("AA" & CStr(LCopyToRow)).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
End With

to :

Range("AA" & CStr(LCopyToRow)).Select
Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* "-"_);_(@_)"

Hope this helps.

 

[flamme20]

Try to change the code from :

With Range("AA" & CStr(LCopyToRow)).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
End With

to :

Range("AA" & CStr(LCopyToRow)).Select
Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* "-"_);_(@_)"

Hope this helps.

Returns an error.

 

[Sektor]

With Range("AA" & CStr(LCopyToRow))
    .NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
End With

 

[flamme20]

With Range("AA" & CStr(LCopyToRow))
    .NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
End With

That works right, thanks a lot!