15 lines
317 B
QBasic
15 lines
317 B
QBasic
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
|