How to return the first cell in a row?

[dapeamel]

Hi guys



I use this code but I still dont get the first cell in the same column and row 1



see code below:

Sub Langauge_Combination() 


For Each sht In ActiveWorkbook.Worksheets
Set Rng = sht.UsedRange

Set MyRange = Rng
For Each MyCol In MyRange.Columns
For Each MyCell In MyCol.Cells
'MsgBox ("Address: " & MyCell.Address & Chr(10) & "Value: " & MyCell.Value)

If MyCell.Interior.ColorIndex = 23 Then

'MsgBox MyCell.Text

' Put code here

MsgBox "" & MyCell.End(xlUp).Text 'I DONT GET THE FIRST ROW WHY?


End If
Next
Next
Next

End Sub

See example file

also picture