Remove all spaces from first row i.e. all column headers

[Tejas Kore]

Hi Friends,

I want to remove all spaces from first row.
How can I do that with a macro ?

 

[SteveO59L]

what makes you think you need code to do that?

why cant you use the replace function

 

[Tejas Kore]

Hi Steve,
Thanks for reply.
Actually I have further steps to do based on some criteria for which I have written few lines of code.
So I wanted to incorporate this into that code instead of separately using excel function or other options.
By this everything will be done automatically then.

 

[Vbagreenhorn1]

Sub test()
    For i = 1 To 100
         Cells(1, i).Value = Replace(Cells(1, i).Value, " ", "")
    Next i
End Sub

 

[Tejas Kore]

I guess this fine and short enough.
Sub NoSpace()
ThisWorkbook.ActiveSheet.Rows(1).Replace what:=" ", replacement:=""
End Sub

 

[Tejas Kore]

Thanks a lot Vbagreeenhorn1

 

[Vbagreenhorn1]

my pleasure !

Your short line is fine, you can forget the thisworkbook-part to make it even shorter.

 

[Tejas Kore]

Roger That Sir !!!