Perhaps

MsgBox wsCD.Cells(ActiveCell.Row,5).Value