Hi Folks,

I am trying to apply some changes to some worksheets, I have listed it in a worksheet called "WorksheetDesign"

The worksheet names are in column A, the cells that need to be changed are listed in column B
Worksheet Name(A)          Range(Cell) (B)

Sheet12                         A1
Sheet22                         B10
Sheet5                          E5
I have tried to make some code


 Sub Apply_to_Worksheets()

 Dim xWs             As Worksheet
 Dim oWksht          As String
 Dim i               As Long

 Set xWs = Worksheets("WorksheetDesign")
 For i = 4 To 10
    If oWksht = xWs.Range("A" & i).Value Then

      Worksheets(oWksht).Font.Size = xWs.Range("B" & i).Value = 30
  
     'Worksheets(oWksht).Font.Name = xWs.Range("B" & i).Value = "Arial"
     'etc

   End If
 Next i
End Sub
Some thing is not right - I'm not sure if it's the worksheet name or some other property amiss, there are a lot of things i want to change over time , so i thought a table structure to list everything would be easier

please do let me know
thank you
sl