Hello

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

I am using the script below. Any help on how to make it reset th
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 ensur
there is a matching value for each cell listed in 'CellArray'" & vbCrL
& "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 Su

--
trilog
-----------------------------------------------------------------------
trilogy's Profile: http://www.excelforum.com/member.php...fo&userid=3683
View this thread: http://www.excelforum.com/showthread.php?threadid=56820