J
JMCN
hi
i receive an error message whenever i try to step through the
following code. i don't know why excel cannot find the cells.select ?
if anyone has an suggestions as to why, it would be greatly
appreciated.
thanks in advance - jung
i only posted a couple of lines below to get the just of the problem.
++++++++++++++++++++++++++++++
Dim lastrow As Integer
If Workbooks.Count <> 2 Then
Beep
MsgBox "FUNCTION CANCELLED! " + Chr$(13) + Chr$(13) & "The
Macro workbook and the workbook to be formatted should be the only
workbooks open.", vbCritical
Exit Sub
End If
ActiveWindow.ActivateNext
lastrow = Range("A65536").End(xlUp).Row ' determine last row
of data
ActiveWindow.Zoom = 85
Cells.Font.Name = "Arial"
Cells.Select 'recevie runtime error 1004
Selection.Columns.AutoFit
Range("A1").Select
ActiveCell.FormulaR1C1 = "INTERNAL #"
Range("B1").Select
ActiveCell.FormulaR1C1 = "OBLIGOR #"
i receive an error message whenever i try to step through the
following code. i don't know why excel cannot find the cells.select ?
if anyone has an suggestions as to why, it would be greatly
appreciated.
thanks in advance - jung
i only posted a couple of lines below to get the just of the problem.
++++++++++++++++++++++++++++++
Dim lastrow As Integer
If Workbooks.Count <> 2 Then
Beep
MsgBox "FUNCTION CANCELLED! " + Chr$(13) + Chr$(13) & "The
Macro workbook and the workbook to be formatted should be the only
workbooks open.", vbCritical
Exit Sub
End If
ActiveWindow.ActivateNext
lastrow = Range("A65536").End(xlUp).Row ' determine last row
of data
ActiveWindow.Zoom = 85
Cells.Font.Name = "Arial"
Cells.Select 'recevie runtime error 1004
Selection.Columns.AutoFit
Range("A1").Select
ActiveCell.FormulaR1C1 = "INTERNAL #"
Range("B1").Select
ActiveCell.FormulaR1C1 = "OBLIGOR #"