Federer visits Credit Suisse offices