A button is clicked to refresh data. It works the 1st time but not the second. Is there anyone that can look at this code and tell me why it would refresh one time and not the other? It seems to refresh when the sheet is first open and initiated but not the second time.
Dim iD As Integer, iK As Integer
Dim EKN As String
EKNFormula = False
Application.EnableEvents = True
iK = 1
If Sheet1.CommandButton3.Caption = "Refresh" Then
iD = Range("J6").End(xlDown).Row
EKN = "=RData(J6:J" & iD & ",K4,,," & iQt & "CH:Fd" & iQt & ",K5)"
Sheet1.Range("J4").Formula = EKN
iD = iRefresh
Sheet1.CommandButton3.Caption = "Lock Formulas"
Sheet1.CommandButton3.Caption = "Refresh"
EKNFormula = True
Public Function iRefresh() As Integer
iRefresh = 0
While iRefresh < 55
On Error Resume Next
iRefresh = iRefresh + 1
iRefresh = 1