Function GetAddressAndAlign(ByVal sheetName As String,ByVal findWord As String) As String
Dim fnd As Variant
fnd = findWord
Sheets(sheetName).Activate
ActiveSheet.Range("A1:Z1000").Find(What:=fnd).Select
ActiveCell.HorizontalAlignment = xlCenter
End Function