Hello

I have this VB script that resets all my values on the sheet that my Reset Button resides (shown below)
However, this spreadsheet has 3 different sheets, and I would like to be able to reset the variable values on the other sheets as well with the one button.

I am using the script below. Any help on how to make it reset the others sheets as well would be very much appreciated.

Thanking you in advance
Trilogy


Dim CellArray
Dim ValueArray
Dim ErrorCheck

CellArray = Array("B1:C1", "B2:C2",..... etc)
ValueArray = Array("", "",... etc)


ErrorCheck = False

If UBound(CellArray) <> UBound(ValueArray) Then
MessageString = "Data Mismatch in Cell Arrays - Please ensure there is a matching value for each cell listed in 'CellArray'" & vbCrLf & "There are currently " & UBound(CellArray) & " CELL assignments and " & UBound(ValueArray) & " VALUE assignments"
MsgBox (MessageString)
ErrorCheck = True
End If


If Not ErrorCheck Then

For i = o To UBound(CellArray)

Range(CellArray(i)).Select
ActiveCell.FormulaR1C1 = ValueArray(i)


If InStr(CellArray(i), ":") > 0 Then

CellRange = Split(CellArray(i), ":")
StartRow = Right(CellRange(0), Len(CellRange(0)) - 1)
EndRow = Right(CellRange(1), Len(CellRange(1)) - 1)

If StartRow <> EndRow Then

Selection.FillDown

End If

End If


Next

End If

Range("B1:C1").Select

End Sub