Sub findd() Dim rg As Range Set rg = Range("E:E").Find("Bulgaria") Debug.print rg.offset(0,1) End Sub