I find it also helpful if you place the Randomize command before the Rnd call. This 'seats' the random number generator to avoid patterns.

Randomize

irow= Int((MaxRows * Rnd) + 1)

Randomize

icolumn= Int((MaxColumns * Rnd) + 1)

Just a little tip

Have you tried to use the Rnd Function? I have not done this but would think it look like this:

MaxRows = 10  'Maximum number of rows
MaxColumns = 5 'Maximum number of columns 
sfilePath =  'pathe to Excel file
isheet =    '  Sheet to use

irow= Int((MaxRows * Rnd) + 1)  
icolumn= Int((MaxColumns * Rnd) + 1)

Set ExcelObj = CreateObject(''Excel.Application'')
ExcelObj.Workbooks.Open sfilePath
Set NewSheet = ExcelObj.Sheets.Item(isheet)
value = NewSheet.Cells(irow,icolumn)
ExcelObj.Application.Quit
Set ExcelObj = Nothing
 

Also if you set the sheet, you can use the vbscript to get the columns and rows for the sheet, then assign those to the appropriate max variables and use what is actually available on your particular sheet for true randomness for your particular sheet.