Activate sheet and centeralign a cell in that sheet

[sylvest]

How do I use VBA code to centre the text in the range Hello on Sheet2 of a workbook if the active sheet is unknown?

So first I need a code to select the Sheet2 then a code to centre align.

The above needs to be accomplished in one single line of VBA.Is it possible?

Tks..

 

[venkat1926]

I doubt whether one line code is possible but you can put the macro name under a command button

the macro is

Sub test()
Dim sh As Worksheet
Dim cfind As Range
For Each sh In ThisWorkbook.Worksheets
sh.Activate
 Set cfind = Cells.Find(what:="hello", lookat:=xlWhole)
   If cfind Is Nothing Then GoTo line1
   
   With cfind
        .HorizontalAlignment = xlCenter
End With
line1:
Next sh
End Sub

 

[pgc01]

Hi sylvest

the range Hello

If you mean a cell that contains "Hello", you already have a solution. If you mean the range named "hello"

Worksheets("Sheet2").Range("Hello").HorizontalAlignment = xlHAlignCenter


Remark: "active sheet is unknown": I don't understand what you mean by this.

Hope this helps
PGC