I would suggest this as your sub.
Sub Macro1()
If TypeName(Selection) = "Range" Then
Selection.EntireRow.Style = "Good"
End If
End Sub
ActiveCell is only going to return the top left cell within the Selection. See this. Also, thanks to PatrickK for the suggestion about checking the typename, I am embarrassed to say I was unaware of the TypeName function before now.