Attribute VB_Name = "formatArticleSheet" Sub formatArticleSheet(ByVal article As String, ByVal sheet as string) ' 'This will format the sheet based on the og psi, all formulas will be rebuilt everytime you click update articles ' ' ' ' ' ' sheets(sheet).range("A2").value = "AV" sheets(sheet).range(article) End Sub