Invalid Qualifier

[KORKIS2]

It is saying cell.row is an invalid qualifier

Dim cell As Integer
Dim msg As String
 
Application.ScreenUpdating = False
 
On Error Resume Next
cell = 12


 
  Range("A7:Z" & cell.Row - 1).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess
Else
  Application.ScreenUpdating = True
  msg = "No 0 values found, cannot determine last row of customer"
  msg = msg & vbCrLf & vbCrLf & "Macro exiting"
  MsgBox msg
  Exit Sub
End If
 
Application.ScreenUpdating = True

 

[jasonb75]

Cell is defined as an integer, .row needs to be qualified with a range object.

Range("A7:Z" & cell - 1)

Will work.