Markerer rækken og kolonnen, som markøren står i

Indsæt denne i Arkets modul (ikke et nyt Module, men under Microsoft Excel Objects - Ark1 - hvis arket hedder Ark1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TheRange As Range

Set TheRange = Union(Target.EntireColumn, Target.EntireRow, Target)

Application.EnableEvents = False
TheRange.Select
Target.Activate
Application.EnableEvents = True

End Sub

Eller denne hvor række og kolonne farves grøn (farvekode kan ændres efter smag):

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    ActiveCell.EntireRow.Interior.ColorIndex = 4
    ActiveCell.EntireColumn.Interior.ColorIndex = 4
End Sub

/Be_Nice

Tusind tak for svar begge 2,
det er lige hvad jeg manglede..
ligger du et svar også "be_nice"??