VBA Macro help to return maximum value in text form

[khanumair50]

Hello everyone,
I am a novice to VBA in excel, i have a table of more then 5000 rows. I would like to find a maximum value from each row and return the column title as "GL_Weld" or "Bend" or "Header" into another worksheet cell.

i.e First Row max value = 0.011510 should return "Bend" into another worksheet

GL_Weld Bend Header
0.000170 0.011510 0.000500
0.000000 0.000780 0.000000
0.000240 0.011070 0.000480
0.000000 0.000660 0.000000
0.000000 0.003770 0.000000
0.000000 0.000010 0.000000
0.000280 0.010870 0.000480
0.000000 0.000710 0.000000
0.000200 0.011290 0.000490
0.000000 0.000840 0.000000
0 0 0.00002
0 0.00031 0.00001
0 0 0.00004
0 0.0003 0.00002
0 0 0.00001
0 0.00027 0.00003
0 0 0.00002
0 0.00026 0.00004

Can someone help please. Thanks in advance!

[Palmetto]

Could you use this formula on the other sheet and just return the matching header? See Sheet3 in the attachment.

=INDEX(Sheet2!$A$1:$C$1,1,MATCH(MAX(Sheet2!A2:C2),Sheet2!A2:C2,0))

[StephenR]

You seem to have posted the same question twice?

[khanumair50]

Thanks palmetto,

I am actually trying to write a macro. But i'm having problems defining range with recognition of decimal data format and worksheets, like to pick the data from worksheet called "DATA" and return it into worksheet called "RESULTS".

Please look at the following code and see if you can help. I would really appreciate that.

Sub maxvaluemacro()
Dim Rng As Range, Dn As Range, Mx As Long, Col As String
Set Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
For Each Dn In Rng
Mx = Application.Max(Dn.Resize(, 4))
Select Case Mx
Case Is = Dn.Offset(, 0): Col = "GL_Weld"
Case Is = Dn.Offset(, 1): Col = "Bend"
Case Is = Dn.Offset(, 2): Col = "Header"
End Select
Dn.Offset(, 4) = Col
Next Dn
End Sub

[khanumair50]

Sorry, i just wanted to rephrase the question. But intead end up posting a new thread. I would close the previous one.